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SECTION  I 
INTRODUCTION 

This  study  describes  SCAT,  an  automated  system  for  typesetting  text  and 
inserting  special  graphic  symbols  in  computer  authored  instructional  materials. 
SCAT  is  designed  to  use  the  programmed  instructional  modules  for  symbol  learn¬ 
ing  created  by  the  AUTHOR  system  (Braby,  Parrish,  Guitard,  and  Aagard,  1978) 
as  input  and  to  output,  ready  for  the  printer,  typeset  camera-ready  masters 
with  symbols  in  place;  thus  eliminating  the  massive  labor  intensive  step  of 
hand  stripping  the  symbols. 

BACKGROUND 

Publishing  technical  manuals  and  training  materials  for  the  Navy  is 
expensive.  In  addition,  current  publishing  practices  frequently  result  in 
late  delivery  of  technical  data  or  delivery  in  a  form  unsuitable  for  the 
intended  user.  These  publishing  practices  are  also  subject  to  problems  in  the 
revising  and  updating  of  technical  documentation  and  in  the  storage,  distribu¬ 
tion,  and  maintenance  of  these  materials. 

The  Naval  Technical  Information  Presentation  Program  (NTIPP)  of  the  David 
W.  Taylor  Naval  Ship  Research  and  Development  Center  is  a  large-scale  effort 
to  improve  the  Navy's  efficiency  in  publishing  technical  information  in  support 
of  Navy  equipment.  The  goal  of  the  program  is  to  define  the  full  family  of 
hardware  support  documents  required  for  equipment  operation,  maintenance, 
logistics  support,  and  training,  and  to  design  a  state-of-the-art  system  for 
authoring,  composing,  illustrating,  mastering,  replicating,  distributing  and 
updating  these  documents.  Several  Navy  organizations  are  participating  in 
this  major  effort.  The  Training  Analysis  and  Evaluation  Group  (TAEG)  was 
tasked  by  the  Chief  of  Naval  Education  and  Training  (CNET)  to  represent  the 
Naval  Education  and  Training  Command  (NAVEDTRACOM)  in  this  effort. 

The  present  report  is  the  fifth  of  a  series  of  TAEG  reports  exploring 
ways  of  improving  technical  manuals  and  training  materials.  The  first  of 
these  studies  was  a  plan  for  CNET  involvement  with  NTIPP  for  improving  Navy 
training  documents  (Braby,  1977),  while  the  second  dealt  with  the  use  of 
microfiche  as  an  instructional  medium  for  technical  training  (Rizzo,  1977). 

The  use  of  computer-based  publishing  techniques  for  meeting  the  publishing 
requirements  of  the  CNET  was  the  subject  of  the  third  study  (Keeler,  1977). 
While  various  options  in  word  processing,  text  editing,  composing,  and  photo¬ 
typesetting  were  studied,  computer  aids  for  the  author  were  not  included.  The 
fourth  study  reports  on  the  development  of  AUTHOR,  a  system  for  computer-aided 
authoring  of  programmed  instruction  for  symbol  recognition  (Braby,  Parrish, 
Guitard,  and  Aagard,  1978).  While  AUTHOR  does  provide  powerful  aids  to  the 
author,  it  does  not  include  provision  for  typesetting  or  other  automated 
preparation  of  camera-ready  masters. 

The  study  reported  here  has  developed  SCAT,  a  computer  based  system  for 
typesetting  the  computer  authored  texts  created  by  the  AUTHOR  system.  This 
typesetting  provides  inherent  aesthetic  quality  and  high  legibility,  whether 
the  medium  is  paper  or  micromedia.  In  addition,  where  large  numbers  of  non¬ 
standard  symbols  are  required  (as  in  a  programmed  instruction  for  symbol 
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learning),  the  SCAT  eliminates  the  massive  labor  intensive  task  of  pasting  the 
symbols  in  by  hand.  Thus,  when  SCAT  is  used  in  conjunction  with  AUTHOR,  the 
publishing  of  programmed  instructions  for  symbol  learning  consumes  hours 
rather  than  days  of  labor  with  concomitant  dollar  savings. 

PURPOSE 

This  report  describes  SCAT,  an  automated  system  for  typesetting  special 
graphic  symbols  as  well  as  the  text  of  the  programmed  instructional  materials 
created  by  AUTHOR,  a  computer  aided  authoring  system.  In  addition,  it  out¬ 
lines  the  design  architecture  of  the  system  so  those  who  have  access  to  similar 
but  not  identical  equipment  will  be  able  to  modify  the  system  for  use  in  their 
environment. 

ORGANIZATION  OF  THIS  REPORT 

Besides  this  introduction,  the  report  contains  three  additional  sections, 
a  glossary,  and  five  appendices.  Section  II  contains  an  overview  of  the  SCAT 
system,  including  component  requirements,  as  well  as  a  flow  chart  and  examples 
of  system  input  data,  composed  text  stream,  and  typeset  output.  The  technical 
approach  employed  in  developing  SCAT  as  well  as  the  rationale  used  in  making 
the  software  and  format  decisions  is  the  subject  of  section  III,  which  will  be 
an  aid  to  the  reader  should  the  system  require  modifying  to  accommodate  his 
equipment  limitations.  In  section  IV,  recommendations  and  conclusions  are 
made  following  a  discussion  of  the  important  factors  impacting  on  the  automated 
preparation  of  computer  authored  programmed  instructions  through  the  type¬ 
setting  process.  A  glossary  has  been  included  as,an  aid  to  communications 
between  the  SCAT  system  user  and  the  typographer. 

Listings  of  the  software  used  by  the  COMPOSITION  subsystem,  which  will  be 
useful  in  the  event  of  system  alterations,  are  contained  in  appendix  A.  The 
substitution  tables  used  by  the  typographer  to  make  the  transmitted  code  com¬ 
patible  with  his  part  of  the  sytem  are  presented  in  appendix  B.  Appendix  C  is 
a  user's  guide  for  the  operation  and  use  of  the  SCAT  system.  A  table  of  five 
standard  data  communications  codes  is  reproduced  in  appendix  D  along  with  the 
binary,  octal,  hexadecimal,  and  decimal  equivalents  as  an  aid  to  the  user  in 
conversing  with  the  typographer  who  may  be  using  an  alternative  code  to  trans¬ 
late  characters  to  decimal  equivalents  ratherMhan  hexadecimal.  Finally, 
appendix  E  is  a  complete  programmed  instruction  for  teaching  present  weather 
symbols  and  demonstrates  the  quality  of  typography  available. 


^  discussion  of  typesetting  in  general  is  beyond  the  scope  of  this  report. 

The  reader  not  familiar  with  the  current  state  of  the  art  in  typesetting  will 
find  Fundamentals  of  Modern  Composition,  Seybold,  1977,  an  excellent  source. 
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Section  II 
OVERVIEW  OF  SCAT 

This  section  provides  an  overview  of  SCAT.  It  is  an  automated  system, 
consisting  of  both  hardware  and  software,  for  typesetting  the  text  and  special 
graphic  symbols’  contained  in  the  programmed  instructions  created  by  the  AUTHOR 
system.  Because  most  users  will  not  be  able  to  afford  a  typesetter,  the 
system  is  partitioned  into  two  subsystems,  the  user's  subsystem,  COMPOSITION, 
and  the  typographer's  subsystem,  TYPESETTING.  These  two  subsystems  form  the 
necessary  links  for  transforming  the  digital  form  of  the  programmed  instruction 
modules  created  by  the  AUTHOR  system  into  camera-ready  masters  with  symbols  in 
place.  Figure  1  shows  the  functional  flow  of  the  data  as  it  is  transformed 
from  the  programned  instruction  created  by  the  AUTHOR  system  into  the  typeset 
camera-ready  masters  ready  for  the  printer. 

THE  COMPOSITION  SUBSYSTEM 

The  COMPOSITION  subsystem  consists  of  the  hardware  and  software  necessary 
to  transform  the  programmed  instructional  text  into  the  composed  text  stream 
required  as  input  by  the  typographer's  subsystem.  Table  1  lists  the  components 
of  the  COMPOSITION  subsystem  and  figures  2  and  3  provide  samples  of  the  pro¬ 
grammed  text  input  and  composed  text  stream  output,  respectively. 

USER  SOFTWARE.  The  Programmed  Instruction  disk  file  is  the  computer  authored 
text  created  and  stored  by  the  AUTHOR  system.  While  it  is  the  output  of  the 
AUTHOR  system,  it  is  the  input  to  the  SCAT  system.  The  Symbol  Table  is  a  data 
file  containing  a  matrix  of  the  symbol  mnemonic  codes  employed  by  the  AUTHOR 
system  and  the  corresponding  character  command  strings  (consisting  of  from  one 
to  five  characters)  required  by  the  typesetter  to  access  the  corresponding 
symbol.  The  Composed  Text  Stream  is  a  file  containing  the  text  imbedded  with 
the  symbol  character  command  strings  required  for  the  special  symbols  and  the 
other  required  typesetting  commands. 

The  executive  program  is  an  interactive  program  provided  to  initiate  the 
functions  to  be  performed  by  the  user.  While  it  is  not  a  necessary  part  of  the 
system,  it  decreases  to  a  minimum  the  level  of  skills  required  to  operate  the 
system. 

The  three  functional  modules  each  contain  the  necessary  software  to 
perform  the  designated  function.  COMPOSE  performs  the  actual  text  manipula¬ 
tion,  transforming  the  Programmed  Instruction  file,  in  record  format,  into  text 
stream  format.  Simultaneously  it  makes  the  required  substitutions  of  character 
command  strings  for  the  symbol  mnemonics,  as  dictated  by  the  Symbol  Table,  and 
inserts  the  necessary  typesetting  commands.  The  second  module,  LIST,  creates  a 
lineprinter  listing  of  the  resultant  Composed  Text  Stream  file,  which  may  be 
used  for  proofing  the  code  before  it  is  transmitted  or  for  editing  the  trans¬ 
mitted  text  by  the  typographer  in  the  event  of  a  transmittal  error.  The  final 
user  module,  TRANSMIT,  sends  the  Composed  Text  Stream  to  the  typographer  over 
the  commercial  telephone  lines. 

USER  HARDWARE.  The  hardware  associated  with  the  COMPOSITION  subsystem  is  of 
the  Wang  2200  series.  The  central  processing  unit  (CPU),  required  for  all 
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TABLE  1.  COMPOSITION  SUBSYSTEM  COMPONENTS 


SOFTWARE 

Data  Files 

Programmed  Instruction 
Symbol  Table 

Composed  Text  Stream 

Executive  Program 

START 

Functional  Modules 

COMPOSE 

LIST 

TRANSMIT 

HARDWARE 

Central  Processing  Unit: 

Wang  2200  VP  and 

Wang  2200  MVP 

(minimum  32K  bytes  of  memory  required) 

Terminal : 

Wang  2226  Keyboard/CRT 

Printer: 

Wang  2221  and 

Wang  2260  used  interchangeably 
(Optional,  required  only  for  LIST 
function) 

Mass  Storage: 

Floppy  Disk  Drives 

Wang  2270 

Platter  Disk  Drives 

Wang  2260 

(Two  disk  drives  required;  the 
configuration  used  had  5  floppy 
and  2  platter  disk  drives  available) 

Telecommunications  Interface: 

Controller 

Wang  2227  Telecommunications  Controller 

Modem 

Anderson  Jacobson  AD  342  Acoustic  Data 
Access  Coupler  (Bell  103-A  compatible) 
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Figure  2.  Programmed  Instruction  Sample  Page  Listing 
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three  functions,  must  be  a  Wang  2200  VP  or  a  Wang  2200  MVP  because  the  con¬ 
catenation  instruction  is  used.  The  mass  storage  medium  is  used  to  store  and 
access  the  three  disk  files  as  well  as  the  functional  programs  and  is  also 
required  for  all  three  functions.  The  telecommunications  controller  and  modem 
are  required  for  the  TRANSMIT  function  to  get  the  Composed  Text  Stream  to  the 
typographer's  subsystem,  TYPESETTING.  The  lineprinter  is  needed  for  the  LIST 
function  in  order  to  obtain  a  listing  of  the  Composed  Text  Stream.  Although 
this  listing  and,  hence,  the  function  and  the  lineprinter  are  not  required,  it 
is  nice  to  have,  and  most  computer  installations  will  have  at  least  one  printer. 

THE  TYPESETTING  SUBSYSTEM 

The  typographer's  portion  of  the  system,  TYPESETTING,  contains  the  hard¬ 
ware  and  software  to  transform  the  Composed  Text  Stream  received  from  the 
COMPOSITION  subsystem  into  the  final  typeset  camera-ready  masters  required  by 
the  printer.  Table  2  lists  the  components  of  the  TYPESETTING  subsystem,  and 
figure  4  depicts  a  sample  of  the  typeset  output. * 

TYPOGRAPHER'S  SOFTWARE.  The  four  functional  modules  each  contain  the  necessary 
software  for  performing  the  indicated  function  using  the  associated  hardware. 

RECEIVE  receives  the  Composed  Text  Stream  over  commercial  telephone  lines  and 
stores  it  in  a  disk  file  for  later  processing.  JUSTIFY  creates  the  Justified 
Text  file  on  the  punched  paper  tape  which  drives  the  typesetter  using  the 
Composed  Text  Stream  as  input  and  the  Reference  Tables  for  substituting  type¬ 
setter  peculiar  commands  and  determining  individual  character  widths.  TYPESET 
performs  the  phototypesetting  using  the  punched  paper  tape  as  input  and  exposing 
photosensitive  paper  (or  film)  with  the  specified  characters  at  the  prescribed 
locations  as  output.  The  exposed  paper  (film)  is  developed  in  the  PHOTOPROCESS 
function,  which  passes  it  through  chemical  baths  and  washes  and  a  dryer,  thus 
making  the  camera-ready  masters. 

The  Composed  Text  file.  Reference  Tables,  and  Justified  Text  file  are 
digital  data  files.  The  Composed  Text  file  holds  the  transmitted  text  and  is 
identical  to  the  Composed  Text  file  in  the  COMPOSITION  subsystem.  The  Reference 
Tables  are  of  two  types.  The  primary  tables  are  the  Width  Tables  which  contain 
the  individual  character  width  information  for  each  character  in  each  font  of 
type.  The  other  set  of  Reference  Tables  are  the  "Find  and  ALTer"  (FALT) 

Tables  which  are  similar  to  the  Symbol  Table  in  the  COMPOSITION  subsystem. 

They  are  used  to  substitute  the  particular  typesetting  command  strings  or 

characters  required  to  drive  the  actual  typesetter  used  in  place  of  the  more 

generic  commands  generated  by  the  COMPOSITION  subsystem.  The  Justified  Text 

file  is  created  on  a  punched  paper  tape,  because  it  drives  the  typesetter 

whose  only  input  device  is  a  punched  paper  tape  reader. 3  » 

2 

These  are  the  components  of  the  subsystem  used  by  the  typographer  to  process 
the  example  shown.  Because  of  different  equipments  or  procedures,  other 
typographers  may  accomplish  the  same  results  using  a  different  complement  of 
components . 

3 

It  should  be  noted  that  while  a  punched  paper  tape  reader  was  the  only  input 
device  for  this  typographer's  typesetters,  many  typesetters  have  alternate 
inputs;  e.g.,  magnetic  tape,  floppy  disk,  or  direct  input  from  the  front  end 
system  computer. 


10 
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TABLE  2.  TYPOGRAPHER’S  EQUIPMENT 


SOFTWARE 

Functional  Modules 

RECEIVE 

JUSTIFY 

TYPESET 

PHOTOPROCESS 

Data  Files 

Composed  Text  File 

Reference  Tables 


Bell  103-A 

Intergraphics  Intercomm  100 

Penta— Pentaware 

Data  General  -  Nova  II 
with  32K  bytes  of  memory 

Diablo  10  Mega  byte  disk 

Bee  Hive,  Int. 

Data  General  Paper  Tape  Punch 

Merganthaler  VIP  -  Measuremati 
used  interchangeably  with 
Merganthaler  VIP-HS 


Justified  Text  File  (driver  tape) 

HARDWARE 

Telecommunications  Interface 
Modem 
Interface 

Front  End  Composition  System 
Central  Processing  Unit 

Mass  Storage 
Terminal 

Papertape  Output 

Typesetter 


Film  Processor 


LogEtronics  RAP  20 
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OPTIONAL  CRITERION  TEST 


Directions 

Numbers 

3 

4 
6 
9 

5 

7 

8 


Go  to  33 

Figure  4.  Programmed  Instruction  Sample  Page  In  Typeset  Form 


1.  Check  your  answers  now. 

2.  Put  an  X  through  your  wrong 
answers. 

Answers 

$/  + 

ft 

♦ 

V 
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TYPOGRAPHER'S  HARDWARE.  The  hardware  associated  with  the  TYPESETTING  subsystem 
is  divided  into  six  major  blocks.  The  telecommunications  interface  has  a  modem 
and  a  special  purpose  CPU  which  allows  the  typographer  to  receive  and  store  the 
text  to  be  typeset. 4  The  Mass  Storage  devices  consist  of  magnetic  platter  disk 
drives  for  storing  and  holding  the  Composed  Text  file  and  the  Reference  Tables, 
paper  tape  punches  for  punching  the  Justified  Text  file,  and  paper  tape  readers 
for  inputting  this  data  to  the  typesetters.  The  front  end  system  is  the  part 
of  the  subsystem  which  massages  the  data  into  the  form  required  to  drive  the 
typesetter.  It  consists  essentially  of  a  small  minicomputer  system  with 
specialized  software  for  typesetting,  the  usual  peripherals— a  terminal,  disk 
storage,  a  printer,  and  a  paper  tape  punch.  The  front  end  system  usually  com¬ 
poses  and  justifies  the  text,  but  because  the  input  has  already  been  composed 
by  the  COMPOSITION  subsystem,  only  the  justify  function  is  performed.  (Thus, 
the  terminal  and  printer  are  not  required  for  other  than  system  control.)  The 
typesetters  receive  the  Justified  Text  through  the  paper  tape  readers  and 
expose  the  typesetting  medium  (paper  or  film)  to  light  in  the  required  patterns 
as  prescribed  by  the  typesetting  commands  and  mediated  by  the  font  masters. 

The  font  masters  might  be  considered  data  files  rather  than  hardware  because  it 
is  the  information  as  to  where  the  typeset  medium  is  to  be  exposed  to  light  and 
where  it  is  to  remain  unexposed  that  is  important.  Many  typesetters  maintain 
this  information  in  digital  form  on  magnetic  disks.  However,  the  typesetters 
used  in  this  study  use  font  masters  contained  on  strips  of  film  which  are 
inserted  into  the  typesetter.  Therefore,  the  font  masters  have  been  included 
as  hardware.  Finally,  the  Photoprocessor  passes  the  exposed  typesetting  medium 
through  the  necessary  chemical  baths  and  washes  to  develop  the  medium,  then 
dries  it,  and  finally  outputs  it  as  the  typeset  camera-ready  masters. 

LABOR 


All  of  the  operations  performed  by  SCAT  are  highly  automated  and  require 
a  minimum  of  manual  intervention.  In  the  COMPOSITION  subsystem,  each  function 
COMPOSE,  LIST,  and  TRANSMIT— requires  only  the  depression  of  a  few  keys  and  5 
switches  for  initiation,  after  which  the  function  is  accomplished  unattended. 
The  total  labor  requirement  of  the  COMPOSITION  subsystem  is  only  a  few  minutes 
per  programmed  instruction. 

The  functions  performed  by  the  TYPESETTING  subsystem  are  also  highly 
automated,  except  for  the  preparation  of  the  required  special  font  masters. 
Given  original  symbols  in  final  art  form,  the  typographer's  charge  is  a  flat 
$100  per  font  master.  Since  each  font  master  may  contain  up  to  96  graphic 
symbols,  this  averages  to  about  $1.04  per  unique  symbol.  Labor  was  negligible 
in  the  remaining  TYPESET  functions  and  the  typographer  charged  only  for  the 
typesetter  usage  time.  For  the  sample  typeset  symbol  learning  package  con¬ 
tained  in  appendix  E,  this  averaged  $3.34  per  page. 

4 

This  special  purpose  CPU  and  its  associated  software  permit  the  typographer 
to  receive  and  translate  text  to  be  typeset  from  a  number  of  diverse  sources, 
including  word  processors  transmitting  in  their  own  codes  as  well  as  other 
CPUs  transmitting  in  standard  ASCII  or  EBCDIC  codes. 

^See  the  User's  Guide  in  appendix  C. 
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In  another,  more  extensive  test  of  the  SCAT  system  an  entire  sample  pro¬ 
grammed  instruction  was  typeset  at  a  total  cost  of  less  than  one  man-hour  of 
labor  to  perform  the  COMPOSITION  functions  plus  $485  in  charges  by  the  typog¬ 
rapher  which  included  the  cost  of  making  the  font  master.  The  only  additional 
equipment  required,  beyond  that  required  by  the  AUTHOR  system,  was  the  tele¬ 
communications  controller  and  modem. 6  Thus  the  113  page  programmed  instruction 
was  typeset  at  a  cost  of  less  than  $4.50  per  page.  By  contrast,  using  the 
traditional  system,  typing  alone  would  probably  have  cost  more  and  the  hand 
insertion  of  over  1,200  symbols  would  have  involved  an  additional  50  man¬ 
hours7  of  skilled  labor. 


^If  this  additional  equipment  is  not  already  a  part  of  the  user's  configuration, 
it  can  be  rented  for  about  $50  a  month  or  purchased  for  $1,050. 

^ Based  upon  2  to  3  minutes  per  symbol. 
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SECTION  III 
SYSTEM  DESIGN 

This  section  reviews  the  system  design  considerations  and  the  rationale 
used  in  the  development  of  SCAT.  It  is  in  two  parts:  the  Functional  Design, 
which  addresses  the  functions  required  for  producing  the  camera-ready  masters 
with  symbols  in  place,  and  the  Output  Format  Design,  which  addresses  the 
compositional  form  of  this  output. 

FUNCTIONAL  DESIGN 

TYPESETTING.  Ordinarily,  when  any  graphics,  such  as  photographs,  line-drawings, 
or  nonalphanumeric  characters,  are  required  to  be  printed,  they  are  stripped 
(pasted)  in  by  hand.  This  is  costly  and  labor  intensive  but  often  unavoidable 
because  typewriters  and  typesetters  are  not  usually  able  to  create  other  than 
standard  alphanumeric  characters.  However,  if  a  sufficiently  large  number  of 
special  symbols  or  characters  are  required,  it  becomes  practical  to  consider 
having  a  special  font  master  made  for  creating  these  symbols  with  a  typesetter. 
(This  would  correspond  to  having  a  special  "ball"  made  for  a  Selectric  Type¬ 
writer.)  Although  this  would  not  be  practical  on  a  typewriter  because  of  the 
time  and  labor  required  to  switch  from  one  set  of  type  to  another,  it  is 
practical  for  a  typesetter  because  it  can  switch  between  font  masters  auto¬ 
matically.  The  cost  of  creating  font  masters  averages  about  $1  per  symbol  (or 
character).  The  cost  of  hand  stripping  a  symbol  is  about  $0.25  (assuming 
$6/hr.  labor  and  2-3  minutes/symbol ) .  Since  a  symbol  need  be  mastered  only 
once  if  it  is  to  be  typeset,  and  the  cost  of  stripping  in  the  symbol  every  time 
it  appears  is  eliminated,  the  mastering  and  typesetting  method  becomes  econom¬ 
ical  when  a  symbol  is  to  be  used  more  than  four  times  and  other  costs  are  not 
increased.  For  the  symbol  learning  packages  created  by  the  AUTHOR  system, 
each  symbol  is  used  an  average  of  25  times,  giving  some  degree  of  confidence 
to  the  choice  of  typesetting  this  material. 

PARTITIONING.  The  typesetting  process  requires  inputting  the  text  to  be 
typeset,  composing  it,  justifying  it,  and  adding  the  typesetting  commands 
necessary  to  drive  the  phototypesetter  and  photoprocessing  the  output  film  or 
paper.  The  phototypesetter  is  an  expensive  piece  of  equipment,  requiring  a 
trained  operator,  a  photoprocessor,  and  special  photosensitive  materials.  Its 
procurement  is  not  recommended  except  for  the  high  volume  user.  However,  for 
the  developer  of  training  materials  whose  volume  does  not  justify  the  acquisi¬ 
tion  of  a  typesetter,  contracting  typesetting  requirements  to  a  typographer  is 
a  viable  alternative  to  traditional  document  preparation  methods. 

A  typographer  having  a  modern  typesetter  will  usually  have  a  minicomputer 
system  for  preparing  the  text  to  be  typeset.  This  minicomputer  system,  called 
a  front  end  system,  is  used  for  keying  in  the  text,  composing  it,  justifying 
it,  and  inserting  the  typesetting  commands  required  for  driving  the  photo¬ 
typesetter.  The  major  cost  for  typesetting  is  usually  the  labor  required  for 
keyboarding  the  text.  Since  the  text  created  by  the  AUTHOR  system  is  created 
in  a  computer  compatible  form,  it  is  possible  to  dispense  with  the  typographer's 
keyboarding  step.  This  assumes  that  the  user's  computer  and  the  typographer's 
computer  share  a  compatible  medium  of  data  exchange. 
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TELECOMMUNICATIONS.  The  only  compatible  medium  of  data  exchange  available  to 
the  typographer  chosen  and  the  user  was  a  300-baud  telecommunications  link. 

The  introduction  of  the  telecommunications  link  added  the  requirement  for  a 
transmitting  function  to  the  user's  tasks  and  a  receiving  function  to  the 
typographer's  tasks. 

FUNCTION  ALLOCATION.  In  deciding  which  functions  could  best  be  performed  by 
the  user  and  which  functions  could  best  be  left  for  the  typographer's  system  to 
perform,  it  was  necessary  to  consider  the  data  format.  The  programmed  instruc¬ 
tion  as  created  by  the  AUTHOR  system  is  in  record  format;  i.e.,  each  page  of 
instruction  occupied  a  physical  record  block  consisting  of  precisely  16  logical 
records  of  exactly  64  characters  each,  regardless  of  whether  a  page  contained 
one  word  or  200  words.  While  this  format  is  convenient  for  manipulating  data 
files  (as  is  done  in  creating  the  programmed  instruction),  the  typographer's 
system  is  designed  to  operate  on  material  which  is  in  text  stream  format;  i.e., 
terminating  a  line  with  an  end-of-line  command  rather  than  filling  it  out  with 
blanks  and  skipping  blank  lines  rather  than  filling  them  with  64  blanks.  (With 
proportionally  spaced  type,  the  number  of  characters  which  will  fit  on  a  line 
is  not  known  until  after  the  text  has  been  justified.)  Since  the  record  format 
is  a  less  efficient  form  for  data  transmission,  where  a  large  portion  of  the 
data  may  be  blanks,  the  required  conditioning  of  the  programmed  instruction  to 
convert  it  from  data  record  format  to  text  stream  format  was  allocated  to  the 
user's  system. 

In  addition,  the  mnemonic  codes  used  by  the  AUTHOR  system  to  represent  the 
special  symbols  were  required  to  be  converted  to  the  typesetting  command 
strings  recognizable  to  the  typesetter.  The  typographer  could  have  performed 
this  task  because  of  the  special  telecommunications  interface  he  had,  but  to 
more  generalize  the  process  to  other  typographers  and  because  it  could  be 
readily  accomplished  using  a  symbol  table,  this  conversion  was  allocated  to  the 
user. 


Composing  is  still  another  task  to  be  performed.  Composing  entails 
assigning  where  everything  is  to  appear  on  the  page  and  in  what  size  and 
typeface  it  will  be  set.  Although  the  AUTHOR  system's  output  was  "composed"  to 
the  extent  of  determining  where  everything  was  to  appear,  it  did  not  indicate 
in  what  size  or  typeface  the  text  was  to  be  set  because  it  was  designed  for 
lineprinter  or  typewriter  output.  This  information  is  usually  keyed  in  by  the 
operator  as  the  text  is  being  keyboarded  into  the  front  end  system.  However, 
since  the  keyboarding  step  was  being  eliminated,  other  provisions  were  re¬ 
quired.  The  conversion  from  record  format  to  text  stream  format  and  the 
translation  of  the  symbol  mnemonic  codes  to  typesetting  command  strings  were 
already  being  done  by  the  user's  system.  Also,  the  insertion  of  the  generic 
typesetting  commands  to  change  from  font  to  font  and  point  size  to  point  size 
could  be  more  easily  implemented  as  a  part  of  the  user's  system  than  the  typo¬ 
grapher's  production  oriented  system.  Therefore,  the  reformatting  of  the 
textual  data,  the  translation  of  the  symbol  codes,  and  the  adding  of  the 
generic  typesetting  codes  for  composition  were  combined  and  performed  simul¬ 
taneously  in  a  user  function  called  COMPOSE. 

A  listing  of  the  data  output  by  the  COMPOSE  function  was  required  for 
debugging  purposes  during  system  development.  This  listing  function  has  been 
maintained  as  a  proofing  tool  and  for  use  in  editing  the  transmitted  text  in 
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the  event  of  an  error  in  transmission.  It  is  called  LIST  and  has  been  included 
as  a  separate  function  because  in  the  user's  multiuser  environment,  a  line- 
printer  may  not  be  available  at  all  times  when  a  terminal  is  available  for 
performing  other  functions. 

The  remaining  user  function  is  that  required  to  transmit  the  data  to  the 
typographer's  system.  Maintaining  this  function,  TRANSMIT,  as  a  separate 
function  minimizes  the  hardware  required  to  be  available  at  the  same  time  the 
typographer  is  ready  to  receive  the  data  transmittal. 

The  justifying  function  which  fills  the  typeset  line  or  measure  with  text 
requires  width  information  for  each  character  of  each  font  in  each  point  size 
used  and  relatively  sophisticated  software  to  implement  it.  This  function  was 
therefore  allocated  to  the  typographer's  system  where  the  necessary  data  and 
software  already  existed.  This  function,  called  JUSTIFY,  also  included  the 
insertion  of  typesetting  commands  peculiar  to  the  typographer's  typesetters. 

The  actual  typesetting  and  photoprocessing  functions  were  allocated  to  the 
typographer's  systems  and  called  TYPESET  and  PHOTOPROCESS,  respectively. 

To  summarize,  the  functions  of  COMPOSE,  LIST,  and  TRANSMIT  made  up  the  sub¬ 
system  called  COMPOSITION  and  were  allocated  to  the  user's  system.  The  func¬ 
tions  of  RECEIVE,  JUSTIFY,  TYPESET,  and  PHOTOPROCESS  made  up  the  subsystem 
called  TYPESETTING,  and  were  allocated  to  the  typographer's  system. 

OUTPUT  FORMAT  DESIGN 

The  output  format,  with  few  exceptions,  maintains  the  line  breaks  and  page 
breaks  made  by  the  AUTHOR  system,  which  preserves  the  lineprinter  output  of  the 
AUTHOR  system  as  a  close  approximation  of  the  final  typeset  output.  Although 
this  has  resulted  in  the  preservation  of  some  widows  and  orphans®  which  might 
otherwise  have  been  eliminated  through  good  composition  practices,  it  was 
necessitated  by  the  numerous  page  references  contained  in  the  programmed  text. 

(To  change  these  would  have  required  repeating  many  of  the  functions  performed 
by  the  AUTHOR  system.)  Preserving  the  line  breaks  generated  by  the  AUTHOR 
system  also  avoids  excessive  compression  of  the  text  toward  the  top  of  a  page 
which  would  otherwise  occur  in  switching  to  proportionally  spaced  type.9 
Exceptions  to  this  rule  have  occurred  where  emboldening  of  text  has  caused  a 
line  to  exceed  its  measure  (i.e.,  the  width  assigned  to  it)  but  was  otherwise 
adhered  to  with  the  result  that  the  text,  set  ragged-right, is  sometimes 
exceptionally  ragged. 

O 

When  a  paragraph  has  been  broken  between  two  pages  so  that  one  page  contains 
only  one  line,  the  isolated  line  is  referred  to  as  a  "widow."  When  a 
paragraph  ends  with  only  one  word  on  the  last  line,  the  isolated  word  is  re¬ 
ferred  to  as  an  "orphan."  Both  widows  and  orphans  are  anathema  to  compositors 
and  typographers. 

g 

Approximately  25  percent  more  characters  may  be  set  on  a  line  of  proportionally- 
spaced  type  as  can  be  set  in  monospaced  typewriter  or  lineprinter  type  in  the 
same  type  size. 

^Typeset  material  which  is  set  with  an  uneven  (ragged)  right-hand  margin  is 
referred  to  as  being  set  "ragged-right." 

17 
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Outside  of  the  constraints  on  line  breaks  and  pagination  mentioned  above, 
the  only  limitations  to  composition  were  those  imposed  by  automation  and  good 
composition  practice.  Thus,  page  heads  were  set  in  Helvetica  Bold,  side  heads 
were  set  in  Century  Schoolbook  Bold,  and  the  body  text  was  set  in  Century 
Schoolbook.  (Because  the  final  user  medium  would  sometimes  be  in  the  micro¬ 
media,  the  use  of  nonconventional  or  highly  stylized  typefaces  was  avoided.) 

To  facilitate  plate  making,  cut  marks  were  set  at  the  top  and  bottom  of  each 
page.  To  facilitate  frame  location  in  the  programmed  instruction,  page  numbers 
were  located  differently  for  microfiche  and  hard  copy.  When  the  medium  was 
microfiche,  the  frame  number  was  set  in  the  middle  of  both  the  bottom  and  top 
of  each  frame.  Thus  the  current  frame  number  would  always  be  visible  even  if 
the  frame  were  poorly  aligned.  When  the  medium  was  hard  copy,  the  page  numbers 
were  set  at  the  upper  right  corner  of  odd  numbered  pages  and  upper  left  corner 
of  even  numbered  pages. 
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SECTION  IV 

CONCLUSIONS  AND  RECOMMENDATIONS 

The  present  study  has  demonstrated  significant  labor  savings  and  concomi¬ 
tant  dollar  savings  through  the  use  of  the  System  for  Computer  Automated 
Typesetting  (SCAT)  when  nonalphanumeric  characters  or  symbols  are  required 
in  the  camera-ready  masters  of  a  computer  authored  text.  In  addition,  the 
sample  of  programmed  instruction  produced  by  SCAT  (see  appendix  E)  indicates 
the  high  aesthetic  quality  inherent  in  typeset  material  (independent  of  the 
symbols).  Finally,  the  study  has  shown  that  SCAT  is  an  easily  implementable 
system  for  use  in  conjunction  with  the  computer  authored  symbol  learning 
packages  created  by  the  AUTHOR  system.  Accordingly,  SCAT: 

•  is  cost  effective  in  preparing  the  camera-ready  masters 
whenever  nonalphanumeric  characters  are  required 

•  improves  the  aesthetic  quality  of  computer  authored 
texts  because  the  output  is  typeset 

•  provides  an  economical  and  easily  implemented  means  for 
typesetting  computer  authored  texts  by  separating  the  composing 
and  typesetting  functions. 

Although  the  use  of  SCAT  or  a  similar  automated  typesetting  system  is 
clearly  indicated,  the  final  form  of  an  automated  system  is  not  as  firmly 
established.  It  is  possible  that  further  material  savings  could  accrue 
through  the  use  of  a  more  sophisticated  compositor  system.  Such  a  system 
would  make  more  effective  use  of  proportionally  spaced  type,  thus  producing 
additional  savings.  This  might  be  best  accomplished  by  incorporating  the 
composition  subsystem  as  a  part  of  the  AUTHOR  system.  Alternatively,  employing 
distributed  processing  techniques  in  the  AUTHOR  system  with  the  typographer's 
front  end  system  merging  and  composing  the  programmed  text  from  the  AUTHOR 
system's  data  base  should  also  be  considered. 

Based  on  these  observations,  the  following  is  recommended: 

•  the  SCAT  or  a  similar  system  be  used  to  automatically  typeset 
instructional  materials  for  symbol  learning  created  by  the 
AUTHOR  system 

•  a  SCAT-1  ike  system  be  incorporated  into  the  AUTHOR  system  to 
accommodate  instructional  material  for  procedure  learning  to  be 
developed  by  the  next  generation  AUTHOR  system. 
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ASCII 

baud 

boilerplate 

Camera-ready 

masters 

CNET 

CPU 

CRT  Display/ 
Keyboard 

em 

em- space 
en 

en- space 

FALT  Table 

font 


GLOSSARY 


American  National  Standard  Code  for  Information  Inter¬ 
change-^  common  7-bit  digital  computer  code. 

A  metric  of  the  speed  at  which  signals  may  be  transmitted. 
300  baud  equals  300  bits  per  second  in  a  train  of  binary 
bits,  or  about  30  alphanumeric  characters  per  second. 

A  set  of  repetitive  blocks  of  text  which  may  be  included 
routinely  without  the  need  to  be  re-created. 

Textual  material  to  be  printed  in  a  form  from  which  the 
printer  can  make  a  photoengraved  printing  plate. 

Chief  of  Naval  Education  and  Training 

Central  Processing  Unit--the  heart  of  a  digital  computer 
which  performs  or  commands  the  performance  of  the 
programmed  instructions. 


Cathode  Ray  Tube  Display/Keyboard— a  device  resembling 
a  small  television  monitor  with  a  typewriter  keyboard 
used  to  input  information  to  the  CPU.  Also  frequently 
referred  to  as  a  Video  Display  Terminal  (VDT). 

A  variable  metric,  usually  about  the  width  of  an  uppercase 
"M"  in  the  type  face  and  point  size  being  set. 

A  fixed  space  of  one  em  in  width.  Sometimes  called  a  mutt. 

A  variable  metric  usually  about  H  the  width  of  an  em.  but 
most  frequently  the  width  of  the  digits  in  the  type  face 
and  point  size  being  set. 

A  fixed  space  one  en  in  width.  Sometimes  called  a  nut  or 
figure  space. 

Find  and  ALTer  table--name  assigned  to  Penta's  substitution 
tables. 

A  standard  assortment  of  signs  of  a  particular  graphic 
design. 
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font  master 

graphic 

justified 

leadering 

leading 

measure 

modem 


monospaced  type 

NTIPP 

orphan 

photoprocessor 

phototypesetter 

processor 


GLOSSARY  (continued) 

A  set  of  coded  information  used  for  producing  the  signs 
of  a  given  font.  In  phototypesetters,  one  font  master 
may  be  used  to  set  characters  over  a  range  of  sizes  by 
varying  the  magnification  used  in  the  optical  path  of 
the  typesetter. 

Anything  other  than  standard  alphanumeric  characters 
to  be  printed. 

Composed  lines  of  text  where  the  left  and  right  margins 
are  even.  This  is  accomplished  by  adjusting  the  variable 
spacebands.  See  ragged. 

The  filling  of  a  portion  of  the  line  measure  with  a 
repeated  character,  most  often  a  string  of  periods. 

(Rhymes  with  metering.) 

A  measure  of  the  vertical  distance  between  horizontal 
rows  of  text.  (Rhymes  with  heading.) 

The  set  width  of  a  line,  usually  specified  in  points. 

Modulator/Demodulator--an  electronic  device  for  converting 
digital  data  to  an  analog  signal  (modulating)  which  may 
be  transmitted  over  commercial  telephone  lines  and  for 
converting  the  transmitted  analog  signal  back  to  digital 
form  (demodulating)  for  processing  by  a  remote  digital 
device. 

Type  which  is  characterized  by  having  all  characters 
take  up  the  same  horizontal  space,  regardless  of  the 
width  actually  required.  See  proportionally  spaced 
type. 

Naval  Technical  Information  Presentation  Program 

An  isolated  single  word  appearing  on  the  last  line  of 
a  paragraph.  Orphans  are  anathema  to  compositors 
and  typographers. 

An  electro-chemical -mechanical  device  for  completing 
the  process  initiated  by  the  phototypesetter  in  the  prepara 
tion  of  camera-ready  masters  or  micromedia  masters. 

Also  referred  to  simply  as  a  processor. 

An  electro-opto-mechanical  device  for  creating  the  exposed 
film  for  camera-ready  masters. 

See  photoprocessor. 


23 


proportionally 
spaced  type 

quad  center 

quad  left 

quad  right 

ragged 

RAM 

reverse  leading 

sans-serif 

serif 

spaceband 

Stripping 

TAEG 

TTS 


TAEG  Report  No.  88 


GLOSSARY  (continued) 

Type  in  which  each  character  has  a  width  equal  to  that 
which  is  required  to  print  it.  See  monospaced  type. 

A  composing  command  which  causes  the  typesetter  to 
center  the  text  in  the  line  measure  and  fill  out  both 
ends  with  white  space.  This  is  most  often  used  for 
centering  headings. 

A  composing  command  which  causes  the  typesetter  to  place 
the  text  at  the  left  of  the  line  and  to  fill  out  the 
line  measure  to  the  right  with  white  space.  Successive 
lines  of  this  result  in  text  set  ragged-right. 

A  composing  command  which  causes  the  typesetter  to  place 
the  text  at  the  right  of  the  line  measure  and  to  fill 
out  the  line  measure  to  the  left  with  white  space. 
Successive  lines  result  in  text  set  ragged-left. 

Composed  lines  of  text  where  the  margins  are  not  even. 

See  quad  left  and  quad  right. 

Random  Access  Memory— usual ly  a  solid  state  memory  which 
is  volatile;  i.e.,  is  lost  when  power  is  removed  and 
must  be  re-loaded  when  power  is  restored. 

The  ability  of  a  typesetter  to  move  the  typeset  medium 
in  the  opposite  direction.  Often  used  in  order  to  set  a 
second  column  along  side  a  first. 

Type  which  does  not  have  serifs.  See  serif. 

The  short  lines  stemming  from  and  at  an  angle  to  the  upper 
and  lower  ends  of  the  strokes  of  a  character.  Also  type 
whose  characters  have  serifs. 

A  space  of  indeterminate  width  (though  nominally  about 
1/3  of  an  em-space)  which  may  be  varied  to  help  justify 
a  line. 

The  hand  pasting  of  strips  of  typeset  text  into  the 
final  camera-ready  form,  and  by  extension,  the  hand 
pasting  of  any  materials  (e.g.,  nonstandard  characters 
or  logos)  to  complete  the  camera-ready  master. 

Training  Analysis  and  Evaluation  Group 

TeleTypeSetting  Code--a  6-bit  coinnuni cat ions  code 
especially  designed  for  transmitting  text  using 
paper-tape. 
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type  face 

typesetter 

widow 


GLOSSARY  (continued) 
a  particular  design  of  type  characters. 

See  phototypesetter. 

An  isolated  first  or  last  line  of  a  paragraph  appearing 
at  the  bottom  or  top  of  a  page  when  a  paragraph  transcends 
two  pages.  Widows  are  anathema  to  compositors. 
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START 


This  program  is  the  executive  program  of  the  COMPOSE  subsystem, 
and  loads  the  other  user  programs  used  by  the  system. 


It  call 
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START 


•PST AT  ■  'CONSOLE* 

COM  814  < 1S8  >4 ,S3* ( 128 ) 13 
DIM  M9«3 ,M8*3 ,H7*3 ,S 9*8 ,88*8 ,S7*8 
REM  :  mi  S to rag a  iddrmn 

Z  ABSTRACT 

Z  This  progras  is  dasignad  to  set  as  an  axacutiva  for  tha  rasainina  TYPESET  prograss 
.  It  display*  a  sanu  of  functions  availabls  to  tha  TYPESET  swstas  and  loads  th*  prog 
raas  nacassary  for  ptrforaing  tha  sslactad  function. 

Z  Touch  RETURN  to  display  sanu  ... 

ZTha  following  functions  ara  aval labia  to  tha  TYPESET  sustas: 

Z  Salact  tha  dasirad  function  by  daprassins  tha  FUNCTION  KEY  corrasoondina  to  tha  fu 
nction  to  b a  parforaad. 

Z  FUNCTION  KEY  FUNCTION  DESCRIPTION 

Z  1  MODIFY  sysbol  Translation  Tabla  Mnasonic  Codas. 

Z  8  COMPOSE  tha  Cosoutar  Author ad  Taxt. 

Z  3  LIST  th  a  Ce&posad  Taxt. 

Z  4  TRANSMIT  tha  Cosoosad  Taxt. 

Z  85  ALTER  sysbol  Translation  Tabla  Tupasattinu  Codas. 


nction  to  ba  parforaad. 

Z  FUNCTION  KEY 

Z  1  MODIFY  syst 

Z  8  COMPOSE  thi 

Z  3  LIST  tha  Cc 

Z  4  TRANSMIT  \t\ 

Z  85  ALTER  sysbc 

PRINT  HEX (03) 

PRINT US INC  11 
PRINT 

PRINTUSING  18 
KEY IN  S9* 

PRINT  HEX (03) 

PRINTUSING  13 
PRINT 

PRINTUSING  80 

PRINT 

PRINT 

PRINTUSING  81 
PRINT 

PRINTUSING  88 
PRINT 

PRINTUSING  83 
PRINT 

PRINTUSING  84 

PRINT 

PRINT 

PRINTUSING  85 
PRINT 

PRINTUSINC  14 
KEY IN  S3* 

ON  VAL(S9S)G0T0  51,58.53,54 
ON  VAL(S9*>-84  GOTO  900 
ON  VAL(S9*)-48  GOTO  51,58,53,54 
PRINT  HEX < 07) 

GOTO  40 


-0051  COSUB  '1 
:  GOTO  40 

-0058  COSUB  '8 
:  GOTO  40 

-0053  GOSUB  '3 
:  GOTO  40 

-0054  GOSUB  '4 
:  GOTO  40 

0059  COSUB  '9 
:  GOTO  40 

0100  DEFFN'l 
0110  PRINT  HEX (03) 

:  PRINTUSINC  111 
:  PRINT 

:  PRINTUSING  118 
:  KEY IN  S0$ 

S  PRINT 

:  PRINTUSING  113,A0t; 
:  INPUT  AO* 

:  GOSUB  '  100(0, A0*) 

:  N0*“'TRANSLAT* 

:  PRINT 

:  PRINTUSING  114, NO*; 
:  INPUT  NO* 
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:  DATA  LOAD  DC  Sl« 0.83*0 

-0111  Z  Load  the  disk  containing  tha  table  to  be  aodifed  and  depress  RETURN. 
-OHS  Z  NOTE:  The  standard  translation  table.  TRANSLAT.  is  on  the  TYPESET 
systea  disk. 

-0113  Zlnput  address  of  the  disk  containina  the  table  to  be  sodified  (###>  ... 
-0114  Zlnput  nase  of  the  table  to  be  aoriifisd  (####***#)  ... 

0119  PRINT  HEX (03) 

-OieO  PRINT  AT <15 ,0,640) 

:  PRINT 

:  PRINTUSING  138 
:  PRINTUSING  129 
:  U-0 

:  INPUT  ■  *,u 

:  IF  u-0  THEN  U-l+1 
:  IF  U  >  0  AND  U  <  100  THEN  130 
:  REN  ERROR 
!  PRINT  HEX (07) 

:  GOTO  120 

-0128  Zlnput  the  Nusber  of  the  Hneaonnic  Code  to  be  altered.  « 

-0129  Z  NOTE:  Entering  a  blank  Mill  incresent  the  count  to  the  next  code. 

-0130  I  -  U 

:  PRINT  AT < 14,0,640 > 
t  PRINT  AT(16,10);I 
:  PRINT  ,S1*(1),S3*<I> 

:  PRINTUSING  138 
:  PRINTUSING  139 
:  U*-*  ■ 

:  INPUT  *  ■ ,U* 

:  IF  LEN(US )  =  4  THEN  S1*(I)-U* 

:  PRINT  AT (24,0) 

:  PRINT  AT ( 13,10) ; 1 ,S1*( 1) ,S3*( 1) 

:  PRINT  AT (0,0, 320) 

:  PRINTUSING  136 
:  PRINT 

:  PRINTUSING  137 
:  GOTO  120 

-0136  ZDepress  SPECIAL  FUNCTION  KEY  15  when  table  sodification  is  cosalete. 

-0137  Z  NO.  MNEMONIC  CODE  TYPESETTING  CODE 

-0138  ZTo  change  Mnesonic  Code,  INPUT  a  NEW  4-character  Mnesonic  Code. 

-0139  Z  NOTE:  Any  input  containing  other  than  4-characters  Mill  be  ignored . 

0199  DATA  SAVE  DC  S1*(),S3*() 

:  DATA  SAVE  DC  CLOSE 

:  RETURN 

-0200  DEFFN'2 

:  PRINT  HEX (03) 

J  PRINT  "COMPOSE* 

:  PRINTUSING  201 
:  KEY IN  SO* 

:  PRINTUSING  202, AO* 

:  INPUT  A0* 

:  GOSUB  '100(1, A0») 

:  IF  N--1THEN  200 
:  PRINTUSING  203, NO* 

:  INPUT  NO* 

:  DATA  LOAD  DC  OPEN  T#1,N0* 

:  DATA  LOAD  DC  S1*(),S3*() 

-0201  ZLoad  disk  containing  translation  table  to  be  used  and  depress  RETURN. 
-0202  Zlnput  address  of  disk  containing  table  to  be  used  (*#«)  ... 

-0203  Zlnput  naae  of  translation  table  to  be  used  <*#######)  ... 

-0210  PRINTUSING  211 
:  KEY IN  SO* 

:  PRINTUSING  212, A0* 

:  INPUT  A0* 

:  GOSUB  '100(1, AO*) 

:  IF  N--1THEN  200 
:  NO*- "COMPOSED* 

:  PRINTUSING  213, NO* 

:  INPUT  NO* 

JLoad  disk  on  which  Cosposed  Text  is  to  be  stored  and  depress  RETURN. 
Zlnput  address  of  disk  on  which  Cosposed  Text  is  to  be  stored  (#•*)  ... 
-0213  Zlnput  naae  Cosposed  Text  is  to  be  stored  under  <««««««•* >  ... 

0220  DATA  LOAD  DC  OPEN  T*2,N0* 

:  ERROR  GOTO  230 
:  PRINTUSING  221.N0* 

:  so*-*  ■ 

:  INPUT  SO* 

:  IF  S0*<>" Y"THEN  210 


32 


TAEG  Report  No.  88 


:  COTO  840 

'0830  PRINTUSING  831 
:  N*100 
:  INPUT  N 
:  N«5*N 

:  DATA  SAVE  DC  OPEN  T  •B,(N),N0» 

*0831  Zlnput  nuaber  of  pages  to  be  coaposed  ... 

-0840  LOAD  T'TVPE . INI* 

:  LOAD  T'TYPE.TST* ,BEG  1000 

:  COTO  40 

-0300  DEFFN'3 

PRINT  HEX (03) 

PRINT  'LIST* 

PRINTUSING  301 
KEVIN  SO* 

PRINTUSING  308 ,A0* 

INPUT  A0* 

GOSUB  '100 (2, A0») 

IF  N— 1THEN  300 
PRINTUSING  303 .NO* 

INPUT  NO* 

DATA  LOAD  DC  OPEN  T«8,N0« 

ERROR  GOTO  300 
LOAD  T-LIST . IT* .BEC1000 

GOTO  40 

-0301  ZLoad  disk  on  which  Coaposed  Taxt  ia  atorad  and  depress  RETURN. 

-0302  Zlnput  address  of  disk  froa  which  Coaposed  Text  is  to  be  listed  (**•)... 
-0303  Zlnput  naae  Coaposed  Text  to  be  listed  is  stored  under  ((HMMMMHMt)  ... 

-0400  DEFFN'4 

PRINT  HEX (03) 

PRINT  -TRANSMIT" 

PRINTUSING  301 
KEY  IN  SO* 

PRINTUSING  402, A0* 

INPUT  A0* 

COSUB  '100 (2, A0«) 

IF  N—1THEN  400 
PRINTUSING  403.N0* 

INPUT  NO* 

DATA  LOAD  DC  OPEN  T*2,N0* 

ERROR  GOTO  400 
LOAD  T "SEND. IT" , BEG 1000 

GOTO  40 

-0402  Zlnput  address  of  disk  froa  which  Coaposed  Text  is  to  be  transsitted  (*•*) 
-0403  Zlnput  naae  Coaposed  Text  to  be  transsitted  is  stored  under  HMMMMMMM))  ... 
0S00  DEFrN ' 100 (N ,A0* ) 

:  IF  POS < -3BD- «STR ( AO* , 1 , 1 ) )*P0S ( 1 123567 * »STR (A0* ,8 . 1 ) >*POS ( *  018345* "STR (A0* 
THEN  SELECT  (*N<A0*> 

;  ELSE  N--1 
•.  RETURN 

-0900  DEFFN'9 
0910  PRINT  HEX (03) 

PRINTUSING  111 
PRINT 

PRINTUSING  112 
KEY IN  S9* 

PRINT 

PRINTUSING  113, A0*; 

INPUT  AO* 

COSUB  '100(0, A0*) 

A0*»’TRANSLAT* 

PRINT 

PRINTUSING  114, A0*; 

INPUT  A0* 

DATA  LOAD  DC  OPEN  TA0* 

DATA  LOAD  DC  81*  O .S3*  < > 

-0980  PRINT  AT(1S, 0,640) 

PRINT 

PRINTUSING  988 
PRINTUSING  189 
U«0 


,1))<>0 
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:  input  •  *,u 

»  IF  U«0  THEN  U»I+1 
I  IF  U  >  0  AND  U  <  100  THEN  130 

i  GOTO  990 

-OKI  XInput  the  Nueber  of  the  Typesetting  Code  to  be  altered. 

0930  I  -  U 

S  PRINT  AT (14, 0.640) 

:  PRINT  AT (16, 10); I 
:  PRINT  ,510 ( 1 ) ,53* ( I ) 

:  PRINTUSINC  938 
Z  PRINTUSING  939 

:  u»«'  ■ 

:  INPUT  *  *,u* 

:  IF  LEN(U*>  >13  THEN  GOTO  990 
J  IF  U*<>‘  ‘THEN  S3* ( I ) =U* 

;  PRINT  AT (24,0) 

:  PRINT  AT (13,10)  ;I,S1*(I)  ,S3*(I) 

:  PRINT  AT (0,0, 320) 

:  PRINTUSING  136 
:  PRINT 

:  PRINTUSING  137 
;  GOTO  120 

-0938  ZTo  change  Typesetting  Code,  INPUT  the  NEW  Typesetting  Code. 

-0939  X  NOTE:  A  BLANK  will  result  in  no  change.  More  than  13-characters  is  illegal 
-0990  REN  ERROR 

:  PRINT  HEX (07) 

:  GOTO  920 

-1500  DEFFN'IS 

:  PRINT  HEX (03) 

:  PRINTUSING  1501 
:  INPUT  SO* 

:  IF  S0*=*N“  THEN  40 
:  IF  S0*O‘S*THEN  1500 
:  PRINTUSINC  1502, A0* 

:  INPUT  A0* 

:  GOSUB  ' 100(0, A0* ) 

:  IF  N— 1THEN  1500 
:  PRINTUSING  1503.N0* 

:  INPUT  NO* 

-1S01  XInput  *S*  if  new  table  is  to  be  saved:  otherwise  input  *N*: 

-1502  ZInput  disk  address  of  disk  on  which  new  table  is  to  be  stored  (###)  ... 

-1503  ZInput  nase  of  new  table  (########)  ... 

1510  DATA  LOAD  DC  OPEN  TN0* 

:  ERROR  GOTO  1520 
;  PRINTUSING  1511.N0* 

:  so***  • 

:  input  so* 

I  IF  S0*O*Y*THEN  1500 
:  DATA  SAVE  DC  S1*(),S3*() 

:  DATA  SAVE  DC  END 
:  GOTO  40 

-1511  Z’tMMMHMMMMt*  is  already  catalogued,  do  uou  wish  to  OVERWRITE  it  (Y.N) 

-1520  DATA  SAVE  DC  OPEN  T(10)  NO* 

-.  DATA  SAVE  DC  S1*(>,S3S(> 

I  DATA  SAVE  DC  END 
:  GOTO  40 
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START 


0000 

0008 

0009 

0010 

-0011 


-ooia 

-0013 

-0014 


» PST AT  -  ‘CONSOLE* 

CON  SI* <128 >4 ,831 <188 >13 
DM  H9*3,H8*3,H7*3,S9*S,SS*Sf87*B 
REN  :  ims  Storage  (ddrmn 

X  ABSTRACT 

X  This  progPM  is  dMimtd  to  set  m  an  executive  for  ths  rmalnlns  TYPESE 
T  progrMS.  It  displays  a  ssnu  of  functions  available  to  the  TYPESET  suste 
a  and  loads  tha  progrMS  necessary  for  sarforsins  tha  salactad  function. 

X  Touch  RETURN  to  display  sanu  ... 

XTha  following  functions  are  available  to  tha  TYPESET  sustaa: 

X  Select  tha  dMired  function  by  depressing  tha  FUNCTION  KEY  corresponding 
to  tha  function  to  be  perforaea. 


HOW 


-0030  X  FUNCTION  KEY 
-0031  X  1 

-0033  X  3 

-0033  X  3 

-0034  X  4 

-0035  X  35 

0030  PRINT  HEX < 03) 

PRINTUSING  11 
PRINT 

PRINTUSING  13 
KEY IN  S9* 

-0040  PRINT  HEX ( 03  > 

PRINTUSING  13 
PRINT 

PRINTUSING  30 
PRINT 
PRINT 

PRINTUSING  31 
PRINT 

PRINTUSING  33 
PRINT 

PRINTUSING  33 
PRINT 

PRINTUSING  34 
PRINT 
PRINT 

PRINTUSINC  35 
PRINT 

PRINTUSING  14 
KEVIN  S9* 

0050  ON  VAL(S9*)GOT0  51,53,53,54 
ON  VAL(S9*)-34  COTO  900 
ON  VAL(S9*)-48  GOTO  51,53,53,54 
PRINT  HEX (07) 

GOTO  40 

-0051  GOSUB  '1 
:  GOTO  40 

-0053  GOSUB  '3 
:  GOTO  40 

-0053  GOSUB  3 
:  GOTO  40 

-0054  GOSUB  '4 
:  COTO  40 

0059  GOSUB  '9 
:  GOTO  40 

0100  DEFFN'l 
0110  PRINT  HEX (03) 

PRINTUSINC  111 
PRINT 

PRINTUSING  113 
KEVIN  SO* 

PRINT 

PRINTUSING  113, A0*; 

INPUT  A0* 

GOSUB  '100(0, A0«) 

N0*«‘TRANSLAT‘ 

PRINT 

PRINTUSING  114, NO*; 

INPUT  NO* 

DATA  LOAD  DC  OPEN  TN0» 


FUNCTION  DESCRIPTION 
sysbol  Translation  Table  Hnesonic  Codas, 
the  Cossutar  Authored  Text. 

LIST  tha  Cosposed  Text. 

TRANSMIT  tha  Cosoosed  Text. 

ALTER  sysbol  Translation  Table  TuPMettina  Codas. 
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:  DATA  LOAD  DC  81*0. 83*0 

-0111  Z  Load  th»  disk  containing  th*  table  to  ba  aodifed  and  depress  RETURN. 
-011S  Z  NOTE:  Tha  standard  translation  tabia.  TRAN8LAT.  is  on  tha  TYPESET 

system  disk. 

-0113  Zlnput  addrass  of  tha  disk  containins  tha  tabia  to  ba  sodifiad  <•*•  >  ... 
-0114  Zlnput  nasa  of. tha  tabia  to  ba  sodifiad  <♦•#*§*•*>  ... 

0119  PRINT  HEX (03) 

-0120  PRINT  AT (15 ,0,640) 

:  PRINT 

:  PRINT US INC  128 
:  PRINTUSING  129 
:  U«0 

:  INPUT  ■  *,u 

:  IF  U-0  THEN  U»I«-1 
:  IF  U  >  0  AND  U  <  100  THEN  130 
:  REH  ERROR 
:  PRINT  HEX (07) 

:  GOTO  120 

\ 

-0128  Zlnput  tha  Nuabar  of  tha  Mnesonnlc  Coda  to1  ba  altarad. 

-0129  Z  NOTE:  Entaring  a  blank  Mill  increaent  tha  count  to  tha  next  coda. 

-0130  I  *  U 

:  PRINT  AT (14 .0,640) 

:  PRINT  AT ( 16,10) : I 
:  PRINT  ,S1*<1),S3*(I> 

:  PRINTUSING  138 
:  PRINTUSING  139 
:  U*«‘  ' 

:  INPUT  *  *,U* 

:  IF  LEN(U*>  *  4  THEN  S1*(I)«U* 

:  PRINT  AT (24,0) 

:  PRINT  AT (13,10) ;I,S1*(1) ,S3*(I) 

:  PRINT  AT (0,0, 320) 

:  PRINTUSING  136 
*.  PRINT 

:  PRINTUSING  137 
;  GOTO  120 

•0136  ZDepress  SPECIAL  FUNCTION  KEY  IS  whan  tabia  modification  is  coaplata. 

-0137  Z  NO.  MNEMONIC  CODE  TYPESETTING  CODE 

-0138  ZTo  change  Mnesonic  Coda,  INPUT  a  NEW  4-character  Hnasonic  Coda. 

-0139  Z  NOTE:  Any  input  containing  other  than  4-characters  will  ba  ianored 


Any  input  containing  other  than  4-characters  Mill  ba  ianored. 


0199  DATA  SAVE  DC  S1S( )  ,S3*< ) 

:  DATA  SAVE  DC  CLOSE 
:  RETURN 

-0200  DEFFN'2 

:  PRINT  HEX (03) 

:  PRINT  ■COMPOSE’ 

:  PRINTUSING  201 
:  KEY IN  S0« 

:  PRINTUSING  202, A0* 

:  INPUT  A0* 

:  GOSUB  '100(1, A0») 

:  IF  Ns-ITHEN  200 
:  PRINTUSING  203, NO* 

:  INPUT  NO* 

:  DATA  LOAD  DC  OPEN  T41.N0* 

:  DATA  LOAD  DC  S1*(),S3*() 

-0201  ZLoad  disk  containing  translation  table  to  ba  used  and  depress  RETURN. 
-0202  Zlnput  addrass  of  disk  containing  table  to  ba  used  (*#•>  ... 

-0203  Zlnput  nasa  of  translation  table  to  be  used  (it######)  ... 

-0210  PRINTUSING  211 
:  KEY  IN  SO* 

:  PRINTUSING  2 12, A0* 

:  INPUT  A0* 

:  GOSUB  '100(1, A0*) 

:  IF  N»-1THEN  200 
:  N0*«* COMPOSED1 
:  PRINTUSING  213.N0* 

:  INPUT  NO* 

-0211  ZLoad  disk  on  Mhich  Composed  Text  is  to  ba  stored  and  depress  RETURN. 
-0212  Zlnput  address  of  disk  on  Mhich  Cosposad  Text  is  to  be  stored  (•«•)  ... 
-0213  Zlnput  nasa  Cosposad  Text  is  to  be  stored  under  (*•#***#«)  ... 

0220  DATA  LOAD  DC  OPEN  T»2,N0* 

:  ERROR  GOTO  230 
:  PRINTUSING  221, NO* 

:  so*-1  • 

:  INPUT  so* 
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0230 


-0231 

-0240 


-0300 


-0301 

-0302 

-0303 

-0400 


-0402 

-0403 

0500 


-0900 

0910 


-0920 


IF  SOSO“Y*THEN  210 
GOTO  240 

PRINTUSING  231 
N  =  100 
INPUT  N 
N*5*N 

DATA  SAVE  DC  OPEN  T  #2,(N),N0S 

ZInput  number  of  pages  to  be  composed  . . . 

LOAD  T* TYPE. INI* 

LOAD  T ■ TYPE. TST *, BEG  1000 

GOTO  40 

DEFFN'3 
PRINT  HEX (03) 

PRINT  ‘LIST* 

PRINTUSING  301 
KEY IN  SOS 

PRINTUSING  302, A OS 

INPUT  AOS 

GOSUB  '100(2, AOS) 

IF  N=-1THEN  300 
PRINTUSING  303, NOS 
INPUT  NOS 

DATA  LOAD  DC  OPEN  T#2,N0S 

ERROR  GOTO  300 

LOAD  T-LIST.IT- .BEGIOOO 

GOTO  40 


ZLoad  disk  on  which  Composed  Text  is  stored  and 
ZInput  address  of  disk  from  which  Composed  Text 
Zlnput  name  Composed  Text  to  be  listed  is  stored 
DEFFN'4 
PRINT  HEX (03) 

PRINT  ’TRANSMIT* 

PRINTUSING  301 
KEY IN  SOS 
PRINTUSING  402, AOS 
INPUT  AOS 
GOSUB  '100 (2, AOS) 

IF  N=-1THEN  400 
PRINTUSING  403, NOS 
INPUT  NOS 

DATA  LOAD  DC  OPEN  T42.N0S 

ERROR  GOTO  400 

LOAD  T’SEND. IT*, BEGIOOO 


GOTO  40 


depress  RETURN, 
is  to  be  listed  <###>... 
under  ( ««#«•«««>  ... 


ZInput  address  of  disk  from  which  Composed  Text  is  to  be  transmitted  (•#*) 
Zlnput  name  Composed  Text  to  be  transmitted  is  stored  under  (*#«*•*#«)  ... 


DEFFN '  100 (N, AOS ) 

IF  POS ( *3BD *  «STR (AOS , l , 1 ) )*PQS  <  *  123567  *  «S f R < AOS .2 . 1 ) )«PU8 ( * 0 12345* -STR ( AOS 
,3,1)100  THEN  SELECT  #N<A0S> 

ELSE  N*-l 
RETURN 

DEFFN '9 
PRINT  HEX (03) 

PRINTUSING  111 
PRINT 

PRINTUSINC  112 
KEY IN  S9S 
PRINT 

PRINTUSINC  113, AOS; 

INPUT  AOS 
COSUB  '100(0. AOS) 

AOS«*TRANSLAT* 

PRINT 

PRINTUSINC  114, AOS ; 

INPUT  AOS 

DATA  LOAD  DC  OPEN  TAOS 

DATA  LOAD  DC  S1SO.S3SO 
PRINT  AT (15, 0,640) 

PRINT 
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:  PRIMUS  INC  958 
:  PRINTUSING  159 
:  U«0 

:  INPUT  “  *,u 

:  IF  U=0  THEN  U=I  +  1 
:  IF  U  >  0  AND  U  <  100  THEN  130 
:  GOTO  990 

0958  Zlnput  the  Nuaber  of  the  Typesetting  Code  to  be  altered. 

0930  I  =  U 

PRINT  AT (14, 0,640) 

PRINT  AT <16 ,10) ;l 
PRINT  ,S1*(I) ,S3*(I> 

PRINTUSING  938 
PRINTUSING  939 
U*='  * 

INPUT  ‘  *  ,U* 

IF  LEN (U* )  >13  THEN  GOTO  990 
IF  U*<>*  'THEN  S3* ( I ) =U* 

PRINT  AT (54,0) 

PRINT  AT ( 13 , 10 ) ; I ,S1* ( I ) ,S3* ( 1 ) 

PRINT  AT (0,0, 350) 

PRINTUSING  136 
PRINT 

PRINTUSING  137 
GOTO  ISO 

0938  ZTo  change  Typesetting  Code,  INPUT  the  NEW  Tupesettino  Code. 

-0939  Z  NOTE:  A  BLANK  will  result  in  no  change.  More  than  13-characters  is  ill 
eaal. 

-0990  REM  ERROR 

;  PRINT  HEX (07) 

:  GOTO  950 

1500  DEFFN'15 

PRINT  HEX (03) 

PRINTUSING  1501 
INPUT  SO* 

IF  S0*='N"  THEN  40 
IF  S04O"S’THEN  1500 
PRINTUSING  1505,  A0* 

INPUT  A0* 

GOSUB  '100(0, A0*) 

IF  N=-1THEN  1500 
PRINTUSING  1503.N0* 

INPUT  NO* 

-1501  Zlnput  ‘5*  if  new  table  is  to  be  saved:  otherwise  input  “N*: 

-1505  Zlnput  disk  address  of  disk  on  which  new  table  is  to  be  stored  (*#*)  ... 
-1503  Zlnput  nase  of  new  table  <*#######)  ... 

1510  DATA  LOAD  DC  OPEN  TN0* 

:  ERROR  GOTO  1550 
:  PRINTUSING  1511, NO* 

:  S0*="  ■ 

:  INPUT  SO* 

:  IF  S0*O"Y“THEN  1500 
:  DATA  SAVE  DC  Sl*(),S3t<) 

:  DATA  SAVE  DC  END 
:  GOTO  40 

-1511  Z‘4MMHMMMMM»*  is  already  catalogued,  do  uou  wish  to  OVERWRITE  it  (Y.N) 

-1550  DATA  SAVE  DC  OPEN  T<10)  NO* 

:  DATA  SAVE  DC  SI* 0,53*0 
:  DATA  SAVE  DC  END 
:  GOTO  40 
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TYPE. INI 

This  program  sets  up  the  initializing  command  strings  required  by  the 
typographer's  subsystem.  It  also  contains  the  subroutines  required  for 
addressing  the  computer  authored  text  created  by  the  AUTHOR  system. 
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TYPE  .  IIM  I 

7000  l**  Program  >  AUTHOR/3  (ATH3INT 1 )  Version  2.0  2200  T/VP 

7005  DEFFN  '  200 

7010  R44( 01 ) -HEX (41614262436344644565466647674868 ) 

7015  R4*<  02 ) -HEX (49694A6A4B6B4C6C4D6D4E6E4F6FS0  70  > 

7020  R4* ( 03 ) -HEX (51715272537354745575567657775878 ) 

7 025  R4*  <  04  >  -HEX  ( 59795A7 A20202 02 02 02 02 02 02 02 02 02  0  > 

7030  R4* ( 05 ) =HEX (61416242634364446545664667476848 > 

7 035  R4* ( 06 ) -HEX ( 69496A4A6B4B6C4C6D4D6E4E6F4F7 05 0 ) 

7040  R4* ( 07 ) -HEX <71517252735374547555765677577858 ) 

7  045  R4*  (  08  )  -HEX  ( 7  9597 A5A2  02  02  02  02  02  02  02  02  02  02  02  0 ) 

7050  R4* ( 09 ) =HEX ( 204 142434445464748494 A4B4C4D4E4F ) 

7  055  R4*  ( 1 0 )  -HEX  < 2 02  02  02  02 02 02  02  02 02 02 02 02  02 02 02  0 ) 

7060  R4> ( 11 > -HEX ( 010802A7030D03E62020202020202020 > 

7065  R4*( 12 ) -HEX (20002020000020202030202000302020) 

7070  R4* ( 13 ) -HEX (3010311132 1233 1334 143515361637 17 ) 

7  075  R4*  ( 14 )  -HEX  ( 38 1839 1 92  0  0  02  02  02  02  02  02  02  02  02  02  0  ) 

7080  R4* ( 15) -HEX < 000102030405060708090A0B0C0D0E0F ) 

7  085  R4*  ( 1 6 )  -HEX  <  2  02  02  02  02  02  02  02  02  02  02  02  02  02  02  02  0 ) 

7090  R4* ( 17 ) -HEX  <  0 1 08  02A7  03E5  04E  6  05  0D2  02  02  02  02  020) 

7095  R4* ( 18 ) -HEX ( 01A001080BCB025E0CCA03280DC70429 ) 

7100  R4* ( 19 ) -HEX ( OEC3052A05C2062D06C4072B07C6090D ) 

7 1 05  R4S  ( 2  0  )  -HEX  <  0AE5 082F  08CC  022 02 02 02 02 02 02 02 02 0 ) 

7110  IN  IT  (  0A  )R64  (  ) 

:  R6*  ( 01 )  -HEX  ( 01 ) 

7115  1NXT ( 09 )R7S  <  ) 

:  R7* ( 01 ) -HEX ( 0D ) 

7120  INIT <20)KS*(  ) 

•  K5-1 

7125  R8* ( 01 ) -HEX (4006426040081211425040081136145416081146 ) 

7130  R8* ( 02 ) -HEX (4006A0004021400D400A2020 ) 

7135  R8< ( 03 ) -HEX (FFFF2020 ) 

7140  R8* ( 04 ) -HEX (400712214007122140072020 ) 

7145  R8* ( 05 ) -HEX (FFFF2020 ) 

7150  R8* ( 06 ) -HEX ( A000400D14271608400A2020 ) 

7155  R8*< 07) -HEX (400740072020) 

7160  R8* ( 08 ) -HEX ( 050D14671708050A2020 ) 

7165  R8* ( 09 ) -HEX ( 05163F20556677000000 ) 

7170  Q0  <  01 ) =00 
:  Q0 ( 02 ) =00 
7175  Q0 ( 03 ) =75 
;  QO( 04 ) =06 
7180  QO ( 05 ) =00 
:  Q0( 06 ) =00 
7185  QO ( 07 ) =00 
:  QO ( 08 >  =00 
7190  QO ( 09 ) =01 
:  QO ( 10 )  =  1024 
7195  QO ( 11 ) =01 
:  QO ( 12 ) =00 
7197  E8*=‘NOT  RANGE’ 

7200  RETURN 

7205  DEFFN ' 101 (K1 ,K2 ,K3 ,K4 ) 

7210  IF  K3-0THEN  7265 
7215  IF  K4O0THEN  7225 
7220  K4-81-K2 

-7225  FOR  K5-1TO  K3 
7230  IF  K501THEN  7245 
7235  *GIOROW/O05 (A000 ,R8* ( 9 ) )R6* ( ) <1 ,K1> 

7240  GOTO  7250 

-7245  *GlOROW/005(A000,R8»(9)  )R6*(X2t1> 

-7250  *G IOCOL/005 ( AOOO , R8*  < 9 ) ) R7* ( ) < 1 , K2> 

7255  *C IOE RASE /  0O5(AOOO,R8S(9))K5*(Xl,K4/ 

7260  NEXT  K5 

-7265  *GIOROW/005(A000,R8*(9) )R6$( )<1,K1> 

7270  *GIOCOL/005(A000,R8*(9) )R7*( )<1,K2> 

7275  RETURN 

7280  DEFFN ' 1 03 ( W 1* , W 1 , W2 , W3 , W4 , W5 ) 

7285  DEFFNW (W ) -256*W+VAL (STR (Wl* ,2 , 1 > ) 

7290  ON  W5G0T0  7315,7335,7360,7380 
7295  R8*«’00* 

7300  R7*-’Subroutine  103’ 

7305  GOSUB  '000 
7310  GOTO  7455 

-7315  W5-W1* 10000 +W2*100+W3 

40 
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7320  BIN (STR (Wit ,  1 , 1 ) >  =  INT (W5/2S6) 

7325  BIN(STR(Wlt,2,l) )=WS-INT(W5/256)*256 
7330  GOTO  7455 

-7335  W5*FNW(VAL (Wit) ) 

7340  W1*1NT ( W5/ 10000 ) 

7345  W2=INT( (W5- (Wl*10000))/100) 

7350  W3*W5- (Wl* 10000 )- (W2* 100) 

7355  GOTO  7455 

-7360  GOSUB  7335 
7365  GOSUB  7380 
7370  GOSUB  7315 
7375  GOTO  7455 

-7380  IF  W3  +W4  >Q  0 ( 7 ) THEN  7395 
7385  W3=W3*W4 
7390  GOTO  7455 

-7395  IF  W2+1>Q0(6)THEN  7415 
7400  W2«W2+1 
7405  W3=W4+W3-Q0<7) 

7410  GOTO  7455 

-7415  IF  W1+1>Q0(5)THEN  7440 
7420  W1=W1*1 
7425  W2=l 

7430  W3  =W4  +W3 -Q0 ( 7 ) 

7435  GOTO  7455 


-7440  RBt=’ 00’ 

7445  R7t* ’Subroutine 
7450  GOSUB  '000 
-7455  RETURN 


103’ 


7460  DEFFN'108(W6) 

7465  ON  W6GOTO  7475,7475,7470,7485 
-7470  PRINT  ’UNDEFINED  BRANCH  -  W6  *  ’ ,W6 
!  STOP 

-7475  SELECT  #5005 
7480  GOSUB  '112 
-7485  RETURN 

7490  DEFFN'112 
7495  R8t=HEX(5102) 

7500  R9t ( 1 )=*Touch  RETURN’ 

7505  tGIOHOME#5(4001,R8t(9) ) 

7510  FOR  W9=»1T0  16 

7515  tPACK (F  =R8t ) STR ( R8t ( 9 ) ,7 ,2 )FR0NW9 
7520  W8=64 

:  IF  W9*l  THEN  W8*63 

7525  tG 10PR 1NT#5 ( R8t ( 6 ) , R8t  <  9 ) ) Qt ( ) <  <  W9> 1 ) «64 ♦ 1 .W8> 
7530  NEXT  W9 
7535  GOTO  7575 

7540  FOR  W9=1T0  1024STEP  64 
7545  KEYIN  R8t, 7550, 7550 
:  GOTO  7565 

-7550  IF  STR <R8t , 1 , 1 ) OHEX ( 13 )THEN  7565 
-7555  KEYIN  R8t, 7560, 7560 
:  GOTO  7555 

-7560  IF  STR  < R8t  ,1,1) OHEX ( 1 1 )THEN  7555 
-7565  W8-64 

:  IF  W9-1THEN  W8»63 

:  tGIO/005(A000400D400A,R8t<9) >Qt< ) <W9.W8> 

7570  NEXT  W9 
-7575  RETURN 


7580  Z##  Proaro  >  AUTHOR/3 
7585  DEFFN'201(W6) 

7590  PRINT  HEX (03) 

7595  GOSUB  '101(10,1,0,0) 
7600  SELECT  PRINT  005 
7605  PRINTUSING  7720,’  ’ 
7610  PRINTUSING  7725,’  ’ 
7615  SELECT  PRINT  405 
7620  GOSUB  '101(5,1.0,0) 
7625  PRINTUSING  7730,*  ”, 


(ATH3LST5)  V»r»ior*  >  2.0  2200  T/VP 


l\ 
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7630  STR<RS*<9>,5,1>«‘  * 

-7635  KEY  IN  R0*<1) ,7650,7650 
7640  *CIOWAIT/005(R8*(1) ,R8*<9)) 

7645  GOTO  7635 

-7650  IF  RO* ( 1 )  >HEX ( 3S ) THEN  7660 
7655  IF  R0*(1)>HEX(30)THEN  7685 
-7660  COSUB  '101(5,50,0,0) 

7665  PRINT  ‘RE-ENTER* 

7670  *C10TONE/OOS(R8*(4) ,R8*(9) ) 

7675  COSUB  '101(5,50,1,0) 

7680  COTO  7635 

-7685  CONVERT  RO*(1)TO  M6 
7690  PRINT  W6 
-7695  COSUB  '  101(7,0,0.0) 

:  PRINTUS INC  7735, AO*; 

:  INPUT  AO* 

;  IF  STR (AO* , , 1 ) <>‘3*AND  STR(A0*, ,1)<>‘B*  THEN  7695 
;  SELECT  #3  <A0*> 

-7700  COSUB  '  101(8,0,0,0) 

:  PRINTUSINC  7740, Al*; 

:  INPUT  Al* 

;  IF  STR (Al* , , 1 ) <>‘3‘ AND  STR< Al* , , 1 )<>*B*  THEN  7700 
:  SELECT  #1  <A1*> 

7705  COSUB  '101(16,0,0,0) 

:  PRINTUSING  7745, HI*; 

:  INPUT  HI* 

:  COSUB  '101(17,0,0,0) 

:  PRINTUSINC  7750, H2* ; 

;  INPUT  H2* 

:  GOSUB  '101(18,0,0,0) 

;  PRINTUSINC  7755, H3*; 

:  INPUT  H3* 

;  COSUB  '101(1-9, 0,0,0) 

:  PRINTUSINC  7760  ,H4*; 

:  INPUT  H4* 

7710  COSUB  '101(20,0,0,0) 

:  PRINTUSING  7765  ,H5*; 

;  INPUT  H5* 

:  GOSUB  '101(21,0,0,0) 

:  PRINTUSINC  7770,H6*(1),H6*(2),H6*<3>: 

:  INPUT  H6* ( 1 ) ,H6* (2 ) ,H6* <3 ) 

7715  GOSUB  '  101(16,1,7,0) 

-7720  X  Output  Selection  4  1  -  CRT  (WAIT  AFTER  EACH  PACE) 

-7725  X  #  2  -  CRT  (NO  WAIf  AFTER  EACH  PACE) 

-7730  X  Enter  Option  Froe  Output  Selection  Menu  >  4 
-7735  X  Enter  Disk  Address  AUTHOR  sodule  Diskette  (444)  > 

-7740  X  Enter  Disk  Address  POSTPROC  Output  Diskette  (444)  > 

-7745  X  Enter  Job  Nase  ( ••ItlllHtMIttlDtlttMMdiMlltlHIM ) ! 

-7750  X  Enter  P/O  Nusber  (4444444444): 

-7755  X  Enter  Todays  Date  (4444444444): 

-7760  X  Enter  Operator's  Initials  (444): 

-7765  X  Enter  Typographic's  P/O  (4444): 

-7770  X  Enter  job  sequence  nusber,  first  .  last  (4444.  4444.  44447: 
7775  RETURN 

7780  DEFFN'202(W6) 

7785  IF  W6=3THEN  7965 
7790  INIT (20 )Q* ( ) 

7795  INIT (20 )Q1* ( ) 

7800  D1=0 
7805  D2*128 

7810  DATA  LOAD  BA  T43, <0,D9)Q1*< ) 

7815  ROTATE (STR (Ql* (25) ,1,1) ,4) 

7820  D6=VAL(STR(Q1*<25) ,1,1>) 

7825  DATA  LOAD  BA  T43,  <1,D9)Q1*< > 

7830  REM  :  initialize  output  file 


7835  L2* ( ) * "  * 

7840  DATA  LOAD  DC  OPEN  T  41, ‘TYPESET1 
7845  LIMITS  T  41,  01,02,03 
7865  REM  :  define  header  and  fonts  used 

7870  INIT (20 )L2* < ) 

;  L2* ( )  =HFX  <7B  )  6  *do20‘  6  HEX(7D) 

:  GOSUB  ' 1 00 ( ‘sx531 ,2 ,3 , 084 ,555 , 086 ,534 .392 .393.394 .395.396.54 1  * ) 

:  GOSUB  '97 
;  GOTO  7880 


7875  DEFFN'97 
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8105  GOTO  8875 

8110  IF  W4$<> "TAPE "THEN  8115 

•8115  PRINT  HEX ( 03) 

8180  SELECT  PRINT  005 
8185  PRINTUSINC  8860,"  " 

8130  PRINTUSING  8865,"  * 

8135  PRINTUSING  8870,"  " 

8140  GOSUB  '101(18,1,0,0) 

8145  END 

-8150  IF  D7*<>"PRIN"THEN  8160 
8155  D7*=“ERR0" 

8160  IF  D7$O"ERR0"THEN  8190 
8165  GOSUB  '101(17,9,0,0) 

8170  PRINT  "RE-ENTER" 

8175  *GIOTONE/OOS(R8*<4) ,R8$<9) ) 

8180  GOSUB  '101(17,9,1,10) 

8185  GOTO  8090 

-8190  IF  D7*<> "HELP "THEN  8805 
8195  GOSUB  '808(3) 

8800  GOTO  8090 

-8805  IF  D7*<>"EDIT"THEN  8815 
8810  GOTO  8855 

-8815  IF  D7*<> "LIST "THEN  8855 
8880  W6-0 
8885  W8*="  * 

■  ^3$ -  ■  • 

8830  W4*="  " 

:  WSS="  " 

8835  W64 = "  * 

8840  GOSUB  '801 (W6) 

8845  GOSUB  '808(W6) 

8850  GOTO  8085 

-8855  COSUB  '807 <D7*) 

-8860  Z  AUTHOR;  An  Automatic  Authoring  Sustem  • 

-8865  Z  Phase  III  Construction  Processina  * 

-8870  ZLISTING  COMPLETED  # 

-8875  RETURN 


8880  DEFFN '805 (W6 ,W3 ,D74 ) 

8885  IF  W6=01THEN  8345 

-8890  D8=D8+8 
8895  IF  D8<188THEN  8385 
8300  D1*D1+1 
8305  IF  D1<17THEN  8315 
8310  GOSUB  '000 

-8315  DATA  LOAD  BA  T#3, <D1,09)Q1«( ) 
8380  D8=l 

-8385  D7*=Q1*(D8*1) 

8330  IF  Q14 (D8 )  OHEX (FFFF  >THEN  8430 
8335  D7*="ST0P" 

8340  GOTO  8430 


GOSUB  '101(17,1,1,80) 

PRINT  HEX <80S03F3f3F3F 080808080808) 5 
D7$**NEXT* 

IF  E8*<>* RANGE"  THEN  8360 
IF  STR(Q*<1) ,59,4)  OE7*  THEN  8365 
E8*="N0T  RANGE" 

INPUT  D7» 

PRINT  "System  Working. . ." ", 

AND  (D74.DF) 

4TRAN ( D7* , R4* ( ) < 193 .84  > ) R 

IF  07*-" STOP "THEN  8430 

IF  D7*» "LIST "THEN  8430 

IF  D7$* "HELP "THEN  8430 

IF  D7$* "NEXT "THEN  8890 

IF  D7*<>"RANG"  THEN  8400 

INPUT  "ENTER  START  AND  END" ,D7*,E7* 

E84-" RANGE" 

GOTO  8365 


-8400  IF  D7»  <  >  *  ST  AR  *  THEN  8480 
8405  Dl-0 
8410  D8*189 
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8415 

-8420 

8425 

-8430 

8435 

8440 

8445 

8450 

8455 

8460 

8465 

8470 

8475 

8480 

8485 

8490 

8495 

8500 

-8505 

8510 

8515 

8520 

8525 

-8530 

8535 

8540 

-8545 

8550 

8555 

8560 

-8565 

8570 

8575 

8580 

8585 

8590 

8595 

8600 

8605 

8610 

8615 

8620 

8625 

-8630 

8635 

8640 

8645 

8650 

-8655 

8660 

8665 

8670 

8675 

-8680 

8685 

-8690 

8695 

8700 

-8705 

8710 

-8715 

8720 

8725 

8730 

8735 

8740 

8745 

8750 

8755 

8760 


GOTO  8290 

GOSUB  '209 <D7*) 

GOSUB  '206<D7*,D1,D2> 

RETURN 

DEFFN '206  <D7* ,D1 ,02) 

DEFFNR ( R ) =256*R+VAL  <  STR ( R2* ( 1 ) ,2 , 1 > ) 

IF  D7*=,ERRO,THEN  8545 

D3=D1 

D4=D2 

MAT  SEARCHQ1* <  )  ,  =STR  (D7* ,  1 ,2 )TO  R2*OSTEP  4 

IF  R2* ( 1 ) OHEX ( 0000 ) THEN  8530 

D3=0 

FOR  D5=1T0  10 

DATA  LOAD  BA  T#3 , (D5  ,D9 >Q1* < > 

MAT  SEARCHQ1*( )  ,=STR(D7*,1,2)T0  R2*()!aTEP  4 

IF  R2* ( 1 ) =HEX (0000 )THEN  8505 

D3=D5 

D5  =  10 

NEXT  D5 

IF  D3O0THEN  8530 
D7*=‘ERR0* 

DATA  LOAD  BA  T#3 , <D1 ,D9 )Q1* < > 

GOTO  8545 


D1=D3 

D2= INT (FNR  < VAL ( R2* ( 1 ) ) ) /2 ) ♦ 1 
D7*=Q1* (D2+1 ) 

RETURN 

DEFFN '207 (D7*) 

IF  W3=99THEN  8565 
IN1T (20 )Q* ( ) 

GOSUB  '211 (D7*> 

FOR  W9=1T0  1024STEP  256 

DATA  LOAD  BA  T#3 , (D7* ,D7*  )Q9* ( ) 

MAT  COPY  Q9*<  ><l,256>TO  Q*(KW9,256> 

NEXT  W9 

RETURN 

DEFFN '209 (D7$) 

D8=7 


IF  STR(D7*,2,1)>HEX(40)THEN  8655 
IF  NUM (D7* ) =4THEN  B630 
D7*=-ERRO* 

GOTO  8715 

CONVERT  D7*T0  D7 

W1*INT (D7 / (D8*D9 ) ) H 

W2*INT ( ( (D7-(W1-1 )*(D8*D9) ) -1 ) /D9H1 

W3*D7-<  <W1-1)*(D8*D9) MW2-1)*D9) 

GOTO  8705 

*TRAN  <  D7*  <2 , 1 > , R4* ( ) <225 , 18 > ) OF 
IF  NUM(STR(D7*,1,1)K>1THEN  8680 
IF  NUM(STR(D7*,3,2) ><>2THEN  8680 
IF  STR (D7* ,2,1) >HEX ( OF ) THEN  8680 
IF  STR (D7* ,2,1) >HEX  <  00  >THEN  8690 
D7**'ERR0’ 

GOTO  8715 

CONVERT  STR(D7*,1 ,l)TO  W1 
CONVERT  STR(D7*,3,2)T0  W3 
W2*VAL (STR (D7* ,2,1)) 

GOSUB  '103(W1*,W1,W2,M3,0,1) 

D7**W1* 

RETURN 

DEFFN '210 <W6) 

GOSUB  '108(W6) 

RETURN 

DEFFN '211 (D7*) 

MAT  REDIM  Q9*<64)4 

STR  <D7* ,3 ,2 ) «STR  <D7$ ,1,2) 

AND  (STR(D7*,1,1),0F) 

AND  (STR (D7*, 3,1) ,F0) 

ROTATE (STR <D7*, 3,1), 4) 
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8765  W9-VAL (STR  <D7$ ,3,1)) 

-8770  IF  W9»D6THEN  8825 
8775  GOSUB  '101(17,1,2,0) 

8780  PRINTUSING  8820, W9 
-8785  KEYIN  R0*(1> ,8800,8800 
8790  *G IOPAUSE / 0  05  <  R8*  <  4 ) , R8* ( 9 ) > 

8795  GOTO  8785 

-8800  DATA  LOAD  BA  T#3 , < 0 ,D9 >Q9*<> 

8805  ROTATE <STR(Q9$( 13)  ,1,1) ,4) 

8810  D6=VAL (STR (Q9$ ( 13 ) , 1 , 1) ) 

8815  GOTO  8770 

-8820  %  MOUNT  Voluae  >  #«  Output  Disk  ...  'RETURN'  to  Continue 
-8825  RETURN 
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TYPE.TST 

This  program  contains  the  instructions  necessary  to  substitute  the 
required  typesetting  command  strings  for  the  mnemonic  codes  used  by  the  AUTHOR 
system  for  special  symbols,  inserts  the  other  typesetting  commands  required  for 
setting  the  remainder  of  the  text,  and  stores  the  resulting  composed  text  in 
running  text  stream  form  ready  for  transmission  to  the  typographer.  It  does 
this  using  the  special  hexadecimal  digit  code  placed  in  the  last  column 
position  on  the  first  line  of  each  page  or  frame  by  the  AUTHOR  system.  This 
code  directs  the  program  to  the  appropriate  subroutine  for  setting  that  page 
or  frame  in  the  specified  format. 
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TYPE . TST 


X  «  UNDEFINE  PROCRAM  REFERENCE  <23  October  /9> 

X#*  pgi:  AUTHOR  Systei  V3.0  (TYPE. TST)  read  and  convart  aodult  ( full/eaaa 

> 

COM  SI* ( 128)4 ,  S3* ( 128,3)13 

COM  A0#3 ,A1*3 

DIM  R4*(20>16 

DIM  RB« (10)24 ,R9S ( 1 >64 

DIM  BO 

DIM  DO ,D1 ,D2 ,D3 ,D4 ,D5 ,D6 ,D7 ,D8 ,D9 
DIM  D4*4,D7*4 

DIM  K1  ,K2  ,K3  ,K4 ,K5*<80) 1 ,R6*  <24  >1  ,R7* (80)1 
DIM  W1 ,W2 ,N3 ,W4 ,W5  ,W6 ,W8 ,W9 ,W1* 

DIM  W2*16  ,W3*16  ,W4*16 ,W5*16 ,W6*16 
DIM  R1,R2,R4,RS,R6,R8,R9 
DIM  RB*2 

DIM  R0S( 1)1,R2«(2)2 
DIM  Q0< 12) 

DIM  Ql*( 128)2 
DIM  Q9*<64  >4 

REM  :  variable  def inition/ initialization 


0190  DIM  F 

:  REM  FONT  INVOKED 
0200  DIM  K*64 

:  REM  COMMAND  BUFFER 
0210  DIM  L 

:  REM  LINE  ADDRESSED 
0220  DIM  LI* ( 64 ) 1 
:  REM  LINE  INPUT 
0230  DIM  L2*(5)64,L3*(5)64 
:  REM  LINE  OUTPUT  BUFFER 
0240  DIM  MO 

:  REM  DEFAULT  MODE 
02S0  DIM  Ml 

:  REM  CURRENT  MODE 
0260  DIM  M2 

:  REM  NEW  MODE 
0270  DIM  M*1 

:  REM  MODE  IN  EFFECT 
0280  DIM  0* ( 4 ) 64 

:  REM  DISK  OUTPUT  BUFFER 
0290  DIM  P 

;  REM  POINTS  TO  BE  LEADED 
0300  DIM  P*2 

:  REM  POINTS  LEADING  COMMAND 
0310  DIM  Q*( 16)64 

:  REM  READ -IN  BUFFER 
0320  DIM  S 

:  REM  SYMBOL  INPUT  LENGTH 
0330  DIM  S2 

:  REM  SYMBOL  INPUT -OUTPUT  ADDRESS 
0340  DIM  S*124 

:  REM  SEARCH  POINTER  TBL 
0350  DIM  T*5 

:  REM  TERMINATION 
0360  DIM  V 

:  REM  VERTICAL  MEASURE 
0370  DIM  W«64 
:  REM  WORD 
0380  DIM  W* ( 128 >2 
:  REM  WORD  MAP 
0390  DIM  X0«6 

:  REM  XNLT  TABLE  -  FORMAT 
0400  X  0*  *HEX ( 0 1 OE  030F2  02  0 ) 

0410  DIM  Xl*16 

:  REM  XNLT  TABLE  -  INPUT 

0420  Xlt^HEX  ( 80238  0A38 1208 1A02525A5A5/EFE2020  > 

0430  DIM  X2*4 

:  REM  XNLT  TABLE  -  OUTPUT 
0440  X2**HEX (207F2020) 

0450  DIM  X3*4 

:  REM  XNLT  TABLE  -  UNDERLINING 
0460  X3*  =HEX ( 2  05F2  02  0 ) 

0470  REM  :  htadtr  indorsation 

:  DIM  Hl*30,  H2*10,  H3*10,  H4*3,  H5*4 .  H6*<3>4.  H*64 
!  H1***U.S.  NAVY  (TAEG)  PKG  1 
:  H2*->*4713-1P037* 

:  H3*»"dd 
:  H4*«*flk* 

:  H5**‘ 0990* 

:  H6* ( 1 ) «*0001" 

:  H6*<2>**0001* 

:  H6*(3) »*  0001* 

0480  X»»  END  OF  COMMON  STORAGE  AREA  •# 

0490  X*#  END  OF  COOMON  STORAGE  AREA  ## 

0500  REM  U 
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Abstract 


10  Z  This  progras  will  procass  all  papas  output  bu  tha  AUTHOR 

SO  X  Systea  and  add  typesetting  coda  which  will  allow  thosa  panes 

10  X  to  ba  transalttad  to  a  typasattar  for  final  output. 

40  REM  (begin  aain  procassina  loop 

SO  GOSUB  '200 

CO  GOSUB  '201<W6> 

70  COSUB  '202<N6> 

SO  REM  (init  total  paga  output 


REM  ;  invoke  paga  S  soda 

GOSUB  '102(4) 

REM  ;  start  naxt  paga  if  arror 

REM  ON  ERROR  E8S.E9S  GOTO  570 
REM  *.  sat  cut  Barks 

COSUB  '99C* 

GOSUB  '99 (HEX (05) ) 

GOSUB  '203 
GOSUB  '210 (U6> 

REM  ;  tast  for  and-of-fila 

IF  QS( 1  )<>*end  of  file"  THEN  740 

REM  THEN  780 

REM  ;  sava  and-of-fila  info 

GOSUB  '100  Cta*) 

GOSUB  '99C  tte‘> 

L2S ( )  *L2t ( )  5  ALL ( 00 ) 

GOSUB  '99C  •) 

INIT  (00)  L2SO 
COSUB  '99C  ■) 

INIT  (00)  L2*<) 

GOSUB  ' 99 ( *  ’) 

DBACKSPACE  Sl.BEG 

DSKIP  #1, <03-01 )S 

DATA  SAVE  DC  Sl.END 

PRINT  ‘COMPOSITION  COMPLETE’ 

STOP 

REM  (incr  total  pagas  sat 

08*  08  >1 

REM  :  tast  for  end  of  N-pages) 

IF  08-INT ( (08-1 ) /4 )*4  <>1  OR  OB  -  1  THEN  770 
IF  08-INT ( (08-1 )/12)*12<>lTHEN  751 
GOSUB  '99 (HEX (07)) 

GOSUB  ' 100( ‘do20’ ) 

GOSUB  '97 
GOSUB  '  100( *g4’ ) 

GOTO  752 

FOR  I=lTO  3 
GOSUB  ' 100 ( "os* ) 

NEXT  I 

REM  sat  new  cut  aarks 
GOSUB  '99( ’*  ♦■) 

GOSUB  '99 (HEX (05)) 

REM  ;  set  top  of  page 

GOSUB  ' 100( *eli2* ) 

IF  STR(QS(1) ,59,1)  =  ‘1‘THEN  COSUB  '99(STR(Q*(1> .60.3) ) 

ELSE  GOSUB  '99<STR(Qt < 1 > ,59,4) > 

GOSUB  '100<’qc‘> 

REM  ;  set  according  to  forsat  coda:SELECTPRINT215( 132 > : PR INI  0«(1>.HEX0F 
(STR(Q*(1) ,64,11) ,VAL(STR(Q»(1) ,64.1) ) (GOTO  620 

ON  VAL (STR (Qt ( 1 ) ,64 ) > -00  GOSUB  870.1100.1100.1100.0.0.1140.1260.1360.11 
34,1131,1190,0,0,0,0 
ELSE  GOTO  800 
GOTO  820 

ON  VAL(STR(Q*(1),64))-16  GOSUB  0.  0.1132.1440.0.0.1100.1590.1100.0 

.1710,1360,1360,1135,0,2000 
ELSE  GOTO  810 
GOTO  820 

ON  VAL ( STR  <  Qt  < 1 > , 64 ) > -32  GOSUB  1860.1930.1100.1100.1133.1260.1360.1150. 
1100,1100,1136,0,1100,0,0,0 
ELSE  STOP 

GOTO  820 


1860.1930.1100.1100.1133.1260.1360.1150. 


REM  ;  add  lead  above  bottos  cage  no. 

COSUB  '111(16) 

REM  ;  invoke  page  no.  node 

GOSUB  '102(4) 

REM  ;  sat  botton  page  no. 

IF  STR  (Qt  ( 1 )  ,59 ,1 )  * 1  l’THEN  GOSUB  '99  (STR«lt  ( 1 )  .60.3) ) 
ELSE  GOSUB  '99<8TR(Qt < 1 ) ,59 ,4 ) > 

GOSUB  'lOOCqc') 

GOSUB  ' 100 ( *ell2* ) 

REM  (  continue  processing  looo 

GOTO  610 

REM  Xt 


49 


TAEG  Report  No.  88 


TITLE  PAGE  FORMAT  (pp  1) 


-0870 

0880 

0890 

0900 

0910 

0920 

0930 

0940 

0950 

0960 

0970 

0980 

■ 

0990 

1000 

• 

1005 

■ 

■ 

■ 

1010 

• 

1020 

1030 


1040 

1050 

1060 


1070 

1080 


REM 
GDSUB 
REM 
COSUB 
GOSUB 
REM 
M0=5 
REM 
L  =  1 
REM 
GOSUB 
REM 
GOSUB 
REM 
M0=6 
REM 
GOSUB 
REM 
GOSUB 
REM 
M0=1 
REM 
GOSUB 
REM 
GOSUB 
REM 
M0=4 
REM 

GOSUB  ' 
REM 
M0=2 
GOSUB  ' 
GOSUB  ' 
GOSUB  ' 
REM 

GOSUB  ' 
GOSUB  ' 
REM 
M0=7 
REM 

G05UB  ' 

GOSUB  ' 

GOSUB  ' 

GOSUB  ' 

GOSUB  ' 

REM 

GOSUB 

REM 

M0  =  1 

REM 

GOSUB 

GOSUB 

GOSUB 

GOSUB 

GOSUB 

GOSUB 

GOSUB 

RETURN 


;  invoke  vert.  just. 

1 0  0  < "  vi55pB" ) 

;add  leading  above  title 
100 ( *  vb“ > 
lOO(’vb’) 

:  invoke  title  sode 


•  init  line  index 

;  set  title 
121  < 99 )  _ 

;  add  leading  above  title 
100< ’vb’ ) 

;  invoke  subtitle  sode 

;  set  subtitle 
121 < 99) 

;  add  leading  above  authors 
100<  * vb" ) 

;  invoke  author  lode 

;  set  authors 
121(99) 

;  add  leading  above  date 
100< ’vb’ ) 

;  invoke  date  »ode 

;  set  date/  quad  ctr 
12109) 

;  set  credits 

'100(’vb“ ) 

'  121(99) 

'lOO(’vb’)  ,  . 

•  add  leading  above  org/pub 
'100<"vb’ ) 

'lOO(’vb’) 

;  invoke  org/pub  »ode 

;  set  org/pub 
'12109) 

'lOOCvb" ) 

'100< ,cf4,6,6" )  „  ,  „  , 

09 (’TYPOGRAPHY  by  F.  Laurence  Keeler. 
'lOO(’qc’)  ^ 

;  add  leading  above  GOTO 
'lOO(’vb’) 

;  invoke  GOTO  sode 

;  set  goto  /  quad  right 
' 130(Q*( 16) ) 

'100< ’i56* ) 

' 100<  *qr* ) 

' 100 ( " vb’ > 

'99 (HEX (02) ) 

'100< ’olO’ ) 

'lOOCvj* ) 


1090  REM  Xt 


Ph.D." ) 
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sisple  S-col  foraat 

-1100  REM  ;  set  heading 

:  COSUB  'IBS 

-1110  REM  :  define  tabs 

:  COSUB  ' 100 ( *dt6g , lOp ,2g,21p ,6p" ) 

1120  REM  ;  set  reaaining  lines 

:  FOR  L  -2  TO  16 
:  COSUB  ' 123 

:  NEXT  L 
1130  RETURN 

-1131  IF  STR(QXIO)  .59,1)  <>  ","  THEN  1100 
:  STR<Q*(10),S9,1)  *  *  1 

:  STR<Q*( 11) ,24,41)  *  ‘and  bottos  of  each  paoe." 

:  STR<Q*< 14) ,24,41)  =  "lower  right  corner." 

:  GOTO  1100 

-1132  IF  STR(Q*<3) ,27 ,4)**at  D"  THEN  STR<Q*<3) .27.38)«"at  the  OtFlNITiON  and  MEH 
ORY  AID  for"  * 

:  IF  STR(QS<5) ,46,5) 3 "and  D"  THEN  STR<QS<5) .46.19)**and  the" 

:  IF  STR (QS (6 ) ,27 ,4 ) ="to  y*THEN  STR<Q*(6> .27 .3a>a" DEFINITION  to  uourself  as 
uou  look  at" 

:  GOTO  1100 

-1133  IF  STR(QS(16) ,35, 16)= "For  test  sysbols"  THEN  SrR(Q*(16) .35.16)="  " 

:  COTO  1100 

-1134  FOR  L=2T0  12 
.*  L1*()=Q*(L) 

:  IF  LI* <26 ) <>"  "THEN  STR <Q* <L ) ,24 ,41 ) *STR <L1* < ) .21 .41 ) 

:  NEXT  L 
:  COTO  1100 

-1135  IF  STR(Q*(10) ,28,4)* "To  P’THEN  STR<Q*<10) .28.4)=“To  p" 

:  GOTO  1100 

-1136  IF  STR<Q*<9) ,27,12)  =  "training.  Y"  THEN  STR(Q*<9) .27.38>*"trainina.  Your 
■esory  plays  tricks" 

:  COTO  1100 


-1140  REM  Zt 
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optional  criterion  test 


GOSUB  ' 122 
GOSUB  '102(E) 

MO-2 

FOR  L-2T0  4 

GOSUB  'lOOCbf)  ,  4,vv 
GOSUB  ' 130<STR(Q*<L) ,6,16) > 
GOSUB  'lOOCql') 

GOSUB  ' 100< • et* ) 

STR(Q*<L) ,6,16)-*  * 

V8-V8-16 
NEXT  L 

GOSUB  'lOOCdtGg.lEp.ElP.ep*) 
GOSUB  ' 100(*bt‘ ) 

GOSUB  '100<*tl‘) 

GOSUB  ' 130 <Q* (2) ) 

GOSUB  '100 Ctc") 

GOSUB  'lOOCet') 

FOR  L-3T0  16 


GOSUB 
NEXT  L 
RETURN 


123 


1149  REM  *♦ 
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criterion  test  ## 

-1150  REM  ;  set  heading 

:  GOSUB  ' 12E 

1160  REM  ;  define  tabs 

:  GCSUB  ' 100< *dt6g , 10p ,2g ,21p ,6p“ ) 

1170  REM  ;  set  remaining  lines 

:  FOR  L  =2  TO  15 
:  GOSUB  ' 126 

:  NEXT  L 
:  GOSUB  '129 

1180  RETURN 

-1190  REM  %♦ 
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sysbols  in  set 

1S00  REM  :  set  heeding 

:  COSUB  '128 

1210  REM  ;  set  line  2 

:  COSUB  ' 100( *dtl8g,21p,6p* ) 

:  M0«1 

:  COSUB  '100Cbf> 

:  COSUB  '130<STR(Q*<2),24,41)) 

:  COSUB  'lOOCtl*) 

:  COSUB  ' 1 00 < ’et" ) 

1215  REM  jtest  for  graphic  sysbols 
:  MAT  SEARCHQ*(4) ,-‘Z'TO  W*<) 

:  IF  VAL (Wt  ( 1 )  ,2 )  OOTHEN  12?0 
:  COSUB  '111(16) 

:  COSUB  ' 100<  *du3* ) 

:  FOR  L-4  TO  6 
:  COSUB  ' 100( * isl8p* ) 

:  COSUB  ' 130<STR(Q*(L ) ,24 ,41 ) ) 

:  GOSUB  'lOOCisSp') 

:  COSUB  'lOOCjl*) 

:  NEXT  L 

:  COSUB  ' 100< ‘du2* ) 

:  COTO  1230 

-1220  REM  ?set  sysbols 

:  COSUB  '111(16) 

:  COSUB  ' 100<  *dt6g,12p,4p,4p,4p,4p,4p. /p* ) 
:  QS ( 5 )  =  Q*(5)  &  STR(Q*<6),24) 

:  FOR  L=4  TO  5 
:  COSUB  '139 
:  NEXT  L 

:  COSUB  '111(16) 

-1230  REM  ;set  resaining  text 

:  GOSUB  ' 100< "dt6g,12p,21p,6p* ) 

:  FOR  L=7  TO  16 
:  GOSUB  '123 
1  NEXT  L 
:  RETURN 

1240  REM  Zt 
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criterion  test  -  symbols 


1550  REM  ;  (pp  10,51) 

-1560  REM  :  set  heading 

:  COSUB  '155 

1570  REM  ; invoke  text  i 

:  M0«1 

1580  REM  ;  define  tabs 

:  COSUB  '100<*dt6g,3p,lg 
1590  FOR  L-  5  TO  15 
:  COSUB  '111(7) 

•  UOmUR-7 

1300  COSUB  '154 
1310  NEXT  L 

1350  REM  ;  define  tabs 

:  COSUB  '100(*dt6g,10p,Sj 
:  REM  ;  set  goto  ref 
:  L-16 

:  COSUB  '153 
1330  RETURN 

1340  REM  Zt 
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criterion  test  -  answers 


1350 

-1360 

1370 

1380 


-1390 

-1400 


-1410 

a 

a 

• 

a 

a 

a 

a 

a 

a 

a 

a 

1420 


REM  ;  <pp  11,12,52) 

REM  ;  set  heading 

GOSUB  '122 
T  =  0 

FOR  L=2  TO  16 

IF  STR<Q*(L> ,6,1)  >  HEX < A0)  THEN  1400 
IF  STR(Q$<L) ,8,1)  =  THEN  1410 
IF  T  <>  1  THEN  GOSUB  '  100 <  ‘dt6g ,  10p  ,2«j  ,21p  .6p“  ) 
T  =  1 

GOSUB  '123 
NEXT  L 
RETURN 

REM  ;set  col  hdgs 

IF  T  <>  2  THEN  GOSUB  ' 100< *dt6g ,3p. 10p .20b ,6p“ ) 

T  =  2 

AND  (Q*(L),7F) 

GOSUB  'lOOCbt’) 

MO  =  2 

GOSUB  ' 100<  *nt* ) 

GOSUB  ' 130 <STR(Q*(L), 1,24)) 

GOSUB  'lOOrtc") 

GOSUB  ' 130(STR(Q*(L) ,26,30) ) 

GOSUB  'lOOCtl*) 

GOSUB  'lOOCet") 

GOTO  1390 

REM  ;set  #  -  sys  -  ans 

IF  T  <>  2  THEN  GOSUB  ' 100 ( ’dt6g ,3p. 10b .20p .bo" ) 

T  =  2 

GOSUB  '  111 <7 ) 

V8=V8-7 

M0=1 

GOSUB  '127 
GOTO  1390 

REM  Zt 


I 
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learn  symbol  definitions 

1430  REM  ! (pp  18) 

-1440  REM  5  set  heading 

:  GOSUB  ' 122  _  ,  .  . 

1450  REM  ;  define  3-col.  tabs 

:  GOSUB  '  100 < " dt6g, lip. HP /UP »6P  > 

1460  REM  \  set  col  hdgs 

5  IF  Q*(8><>"  “  THEN  1470 
:  GOSUB  '111 < 16) 

:  GOTO  1580 

-1470  GOSUB  'lOOCbt*) 

:  M0*S 

1480  REM  <Q*<Jpset  col  1  (definition)  headina 
:  GOSUB  '130<STR(Qt<8) ,1,85)) 

:  GOSUB  ' 100< "tr" )  .  . ,  .  .  .. 

1490  REM  5  set  col  8  (symbol)  headina 
:  GOSUB  ' 130<STR<Q4<8 ) ,87,15) ) 

:  GOSUB  'lOOCtc*)  .  .  .. 

1500  REM  5  set  col  3  (mem  fid)  headina 
:  GOSUB  ' 130(STR(Q*<8) ,43,80) ) 

:  GOSUB  ' 100 ( “tl" ) 

1510  GOSUB  'lOOCef) 

:  M0*1 

-1580  FOR  L=3  TO  15 

1530  GOSUB  '185 

1540  NEXT  L  j  .. 

1560  REM  ;  define  tabs 

:  GOSUB  '100Cdt6g,10p,8g,81P,6P  > 

:  REM  ;  set  goto  ref 
:  GOSUB  '189 

1560  RETURN 

1570  REM  It 
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practice  syebol  definitions 


-1590  REM 
_  COSUB 
1595  REM 


-lie 


set  heading 


REM  ;test  for  graphic  suabola 
MAT  SEARCHQSI2) ,  »"X"T0  MO 
IF  VAL(Mll)  ,2><>0THEN  1500 
GOSUB  ' 100<  *du3*  > 

FOR  L*2T0  6 

IF  STR(QS(L> ,6,16)“'  ‘THEN  1596 
M0>2 

COSUB  '100<"is6p"> 

COSUB  '130(STR<QS (L )  ,6,16) ) 

GOSUB  'lOOOqlO 

-  100<"ol0*> 

100<*isl8p’> 


.  COSUB 
-1596  COSUB 
M0*1 

COSUB  '  130 (STR  (00(0,24 .40) 

-  '  100( * is6p* ) 

'lOOCjl*  ) 


COSUB 
COSUB 
NEXT  L 
COTO  1620 


-1600  REM  ;  define  tabs 

:  GOSUB  ' 100 ( *dt6g , 12p ,4p ,4p ,4p ,4p ,4p ,7o" ) 

1601  SELECT  PRINT  215(132) 

:  FOR  L*1T0  6 

:  PRINT  ‘INITIAL  *  ,Q*(L> 

:  NEXT  L 
:  PRINT 

-1602  FOR  L-3T0  6 
-1603  FOR  I»1T0  4 

:  IF  STR  (Qt  (L ) ,  17  +7*1, 6)  OSTR  (OS  (L-l  >  .17+7*1. 61THEN  1604 
:  STR  <QS(L ) ,  17+7*1 ,6) =5TR  08(0 ,17+7*1+7 .6) 

:  STR(QS <L>, 17+7*1+7, 6>«STRtQS<L-l) ,17+7*1.6) 

-1604  NEXT  I 

:  IF  STR(QSfL) ,52,6)<>STR<0t(L-l) ,52.6>THEN  1606 
STR(QS(L) ,52,6) =STR (OS <L) ,24,6) 

:  STR(QSIL)  ,24,6)*STR(QS(L-i)  ,52,6) 

:  COTO  1603 

-1606  NEXT  L 

:  FOR  I=2T0  5 
1607  FOR  L*2T0  5 

:  IF  STR(OS(L>, 17+7*1, 6><>STR<0S(L),l7+?*(I-l>.6>iHfcN  1608 
:  STR(QS(L ) . 17+7*1 ,6 )*STR(QS(L+1 ) ,17+7*1.6) 

;  STR (QS(L+i ) ,  17+7*1 ,6) «STR(QS(L) ,  17+7*( 1-1 ) .6) 

-16 OB  NEXT  L 

;  IF  STR(QS(6),  17+7*1, 6  > <>STR(QS  <6 )  .17  +  7* <1-1  >  .6>'lHfcN  1609 
;  STR(QS(6),  17+7*1, 6)*STR«J$(2),  17  +  1. 6) 

;  STR (OS (2) ,17  +7*1 ,6)*STR(QS (6) , 17 +7* ( 1-1) .6) 

:  GOTO  1602 

-1609  NEXT  I 

FOR  L*1T0  6 

PRINT  "FINAL  ",04(0 
NEXT  L 
PRINT 
PRINT 

SELECT  PRINT  005(80) 

1610  FOR  L  =  2  TO  6 
COSUB  '139 
NEXT  L 
-1620  REM  ;s#t  rule 

COSUB  '100Cdt6g,33p,6p"> 

GOSUB  'lOOCbt") 

COSUB  '102(1) 

COSUB  '  100( " li* ) 

cosub  'ioo<*tj"> 


COSUB 
1630  REM 


lOOCet" ) 

set  col  hdgs 


nvi  i  |  see  I, 

AND  (OS (8 )  ,7F  ) 

GOSUB  ' 100( "dt6g, lOp ,2g,21p ,6p* ) 
GOSUB  'lOOCbt") 

M0*2 

COSUB  '  130 (STR (OS (8 ) ,1 ,20) ) 

-  lOOCtc") 

130 (STR (OS (8) ,22,43) ) 
lOOCtl") 


'lOOCet" ) 


COSUB 

COSUB 

COSUB 


COSUB 
M0«1 

1640  FOR  L  =  9  TO  15 
GOSUB  '111(4) 
V8=V8-4 
1650  COSUB  '128(24) 
1660  NEXT  L 
1670  REM 
:  REM 

:  COSUB  '129 
1680  RETURN 


define  tabs 
set  goto  ref 
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test  yourself 

1700  REM  ;test  yourself 

-1710  REM  ;  set  heeding 

:  COSUB  '122 

1720  REM  *,  define  tabs 

:  COSUB  'lOOCdtSg.lOP'Sg.SlP.Sp') 

1730  REM  ;  set  directions 

FOR  L*2  TO  9 

COSUB  '123 
.  NEXT  L 
1740  REM  !  define  tabs 

:  GOSUB  ' 100 ( "  dt6g , 10p ,3p , lg , 10p ,3p , lo . IOp .So ■ ) 
1750  REM  *,  set  test  itess 

:  FOR  L  *  10  TO  15  . 

1760  REM  ;  cospute  start  of  text 
Ll-POS<Q*(L><>‘  *) 

REM  ;  not  a  blank  line 

IF  L1O0  THEN  1770 
COSUB  '111 (16) 

GOTO  1830 

1770  REM  ;  add  leading  &  begin  tab 

GOSUB  '111 (4) 

V8=V8-4 

GOSUB  '100(*bt  ) 

REM  jif  no  side  heading 

IF  Ll>  23  THEN  1780 
M0=2 

.  COSUB  ' 130 <STR<Q*<L) ,6,18)) 

-1780  REM  :  tab/invoke  text  sode 

:  GOSUB  'lOOCtl*)  .  , 

1790  REM  *,  set  ites  nuaber  for  col  ID 
M0*1 

GOSUB  ' 130<STR<Q<<L ) ,24,3) ) 

GOSUB  ' 100( "tr* )  ,  ,  t4l 

REM  ;  set  symbol  for  col  ID 
GOSUB  ' 130 <STR<Q*(L) ,28,15)) 

GOSUB  ' 100< "tl" ) 


1800 

e 

1810 


1820 


REM 
M0=1 
GOSUB 
GOSUB  ' 100< ’tr* ) 


REM 

GOSUB  ' 
GOSUB  ' 
.  GOSUB  ' 
-1830  NEXT  L 
1840  REM 
:  GOSUB  ' 
;  REM 
:  GOSUB  ‘ 
1350  RETURN 

1860  REM  Xt 


set  item  number  for  col  12  J 

130 <STR(QS(L), 44,3 >) 
i  < " tr " ) 

,  set  symbol  for  col  12] 
130<STR<QS<U ,48,15)) 
lOOCtl*) 

100<  *et*  > 

;  define  tabs 
100<*dt6g,10p,2g,21p,6p“ ) 

;set  goto  ref 
129 
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1870 

1875 


-1876 


-1880 

1881 


-1888 

•1883 


-1884 

-1886 

1887 

* 

-1888 


-1889 


1890 

• 

a 

a 

a 

-1900 

• 

a 

a 

1910 

1980 


practice  all  syabols 

REM  jset  head 

COSUB  ' 122 

REM  jtest  for  graphic  syabols 

MAT  SEARCHQt(S) ,**5* TO  W*<> 

IF  VAL  (W*  ( 1 )  ,2 )  OOTHEN  1880 
COSUB  '  100<  *du3‘ ) 

FOR  L-2T0  15 

IF  STR(Qt(L) ,6,16)=*  "THEN  1876 
MO-2 

COSUB  ' 100( *is6p* ) 

COSUB  '130<STR<QO(L>,6,16>> 

GOSUB  '  100  “  ) 

COSUB  ' 100<  *ol0* ) 

COSUB  'lOOCislBp') 

MO-1 

GOSUB  '130<STR<Q*<L>,24,41>> 

COSUB  ' 100< “is6p* ) 

COSUB  '100<‘jl‘) 

NEXT  L 

COSUB  '100<  *du2‘ ) 

GOTO  1900 

REM  ;define  tabs 

GOSUB  ' 100 ( -dt6g , 10p ,2g ,4p ,4p ,4p ,4p .4p .7p‘ > 

SELECT  PRINT  215 <132) 

FOR  L=1TD  15 

PRINT  *  INITIAL  ‘,Q$(L> 

NEXT  L 
PRINT 

FOR  L=3T0  15 
FOR  I=lTO  4 

IF  STR (Q* <L ) ,  17  +7*1,6)<>STR(Q*<L-1>. 17+7*1. 6>THEN  1884 
STR(QS<L> ,17+7*1, 6)=STR(Q*(L), 17+7*1+7. 6) 

STR<Q*(L), 17+7*1+7, 6>=STR<Q*<L-1>, 17+7*1. 6) 

NEXT  I 

IF  STR(Q* <L ) ,52 ,6) <>STR(Q*<L-1) ,52.6) THEN  1886 
STR<Q*(L) ,52,6) =STR(Q»<L) ,24,6) 

STR (QS (L ) ,24,6) =STR  <Q*  <L-1 >,52,6) 

GOTO  1883 

NEXT  L 
FOR  I-2T0  5 
FOR  L-2T0  14 

IF  STR(Q*(L), 17+7*1, 6 ) OSTR <Q* <L > ,17+ 7* < 1-1 > .6 > THEN  1888 
STR<Q*<L) ,17+7*1, 6) -STR <Q* (L+l > , 17+7*1. 6) 

STR (Q*  <L  +  1 ) , 17+7*1 ,6 ) -STR  <Q$  <L ) , 17+7* ( 1-1 ) .6 ) 

NEXT  L 

IF  STR<Q$  < 15 ) , 17+7*1 ,6) OSTR (Q0(15).17+r*<I-l) .6) THEN  1889 
STR  (Q*< 15 ), 17+7*1 ,6 )*STR(Q$ (2)  ,17+1,6) 

STR  <Q*  <2 ) , 17  +7*1 , 6 ) =STR (Q$  < 15 ) , 17+7*  < 1-1 ) ,6 ) 

GOTO  1882 

NEXT  I 

FOR  L-1TO  15 
PRINT  ‘FINAL  ‘,Q$(L) 

NEXT  L 
PRINT 
PRINT 

SELECT  PRINT  005(80) 

REM  jset  syabols 
FOR  L-2  TO  15 
GOSUB  '139 
NEXT  L 

REM  ;set  go  to  ... 

COSUB  '  100<  *dt6g , 10p ,2g,21p ,6p* ) 

COSUB  '129 
RETURN 

REM  2t 
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practice  all  sysbols  (answers) 


- 1930  REM  ;  set  heading 
:  GOSUB  ' 122 

1940  REM  ;  define  tabs 

:  GOSUB  ' 100<  *dt6g , 10p ,2g ,21p  t6p* 
1950  REM  ;  set  col  hdgs 
:  AND  <Q*(2),7F) 

:  GOSUB  '100(*bt*> 

:  M0=2 


:  GOSUB  ' 130(5TR(Q$<2) ,1,24) ) 

*.  GOSUB  'lOOCtc1) 

:  GOSUB  '130<STR(Q*(2),26,38>) 
:  GOSUB  ' 100 < " tc* ) 

:  GOSUB  '100<  *et“ ) 

:  M0=1 

1960  FOR  L=3  TO  15 
:  GOSUB  '111(7) 

:  VB=VB-7 
:  GOSUB  '128(26) 

:  NEXT  L 

1970  REM  ;  set  goto  ref 
:  GOSUB  '129 

1930  RETURN 


1990  REM  Zt 
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index 


130(0* <e>> 

'lOOCtr*) 
'lOOCet* ) 

’111(16) 


-2000  REM  :  set  heading 

:  COfflJP  '122 

:  IF  STR(0S(l).6t5)  <>  “INDEX*  THEN  1110 
2010  REM  (define  tabs 

:  COSUB  '  100  ( *dt9g  ,27p  ,9p* ) 

2020  REM  (set  page  address  col  head 

:  COSUB  'lOOCbt*) 

:  MO-2 

:  cosub 
:  cosub 
:  cosub 
:  mo-1 
:  cosub  _ 

■  v8*V8'l( 

2030  REM  (set  chapter  and  pagea 

:  FOR  L-3  TO  IS 
:  IF  Q*(L)<>*  “THEN  2040 
:  COSUB  '111(16) 

;  GOTO  2071 

-2040  IF  STR(QS(L) ,10,1)**  ‘THEN  2060 

:  IF  STR(Q*(L) ,58 ,1 )<>HEX(5F >  THEN  20S0 
:  REM  (set  rule 
;  COSUB  'lOOCbt*) 

*.  COSUB  '102(1) 

:  GOSUi  '100(*li* ) 

:  GOTO  2070 


(chapter  head  — 
'111(12) 


set  chapter  -  insert  white  space  -  set  pane  * 


'  100 ( * 1s3p* ) 


-2050  REM 

COSUB 
V8-V8-12 
COSUB  'lOOCbt*) 

IF  STR(QS(L>,6,1>«*  ’THEN  COSUB 
COSUB  '130(STR(QS(L) ,6,50) ) 

GOSUB  ' 100( *ws* ) 

COSUB  '99(STR«JS(L),S7f4)> 

GOTO  2070 

-2060  REM  (contents  --  insert  space  -  set  contents  -  insert  space  OR  set  sue 
bo  Is 

MAT  SEARCHQS(L)  ,  =  *S*TO  WSO 
IF  WS ( 1  )<>HEX ( 0000 )THEN  2061 
COSUB  ' 100( *du3* ) 

COSUB  ' 100 ( * isl5p* ) 

COSUB  '130<Q*(L)> 

GOSUB  ' 100 ( * isl2p* ) 

COSUB  'lOOCjl*) 

COSUB  '100("du2* ) 

GOTO  2071 

-2061  IF  T5  *  5  THEN  2062 

(  COSUB  ' 100Cdti8p  ,3p  ,3p  ,3p ,3p ,3p , 12p" ) 

(  T5  -  5 

-2062  GOSUB  '139 

(  IF  L-15  THEN  2071 
(  MAT  SEARCH  Q*(L+1),»  *X*  TO  W*<) 

(  IF  W* ( 1 ) < >HEX ( 0000 )  THEN  2071 
(  COSUB  ' 100< *dt9g,27p ,9p* ) 

(  T5  -  1 
(  GOTO  2071 


-2070  REM 
:  cosub 
(  COSUB 
-2071  NEXT  L 
2080  REM 


justify  line 


100< 
100  ( 


■» 


.  set  continue  and  goto 

IF  STR(QS(16) ,41,4)-*To  C'THEN  STRIQS ( 16 ) ,40,19 >•* Index  continued  on 
(  IF  STR(Q*(16) ,46,5)-*End  o’THEN  Q*(16>-’  * 

(  IF  Q*U6)<>*  ‘THEN  COSUB  '100t*dt9p.30p.6n* > 

(  COSUB  '129 
2089  RETURN 


2090  REM  It 
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subroutine  (98) 

£100  REM  X 

add  Header' 

2110  DEFFN'98(K*) 

:  L2$  ( )  =  L2*(>  8r  K*  &  HEX  <  0D ) 

:  GOSUB  ' 99< “  “) 

:  RETURN 

2120  REM  % 

subroutine  (99 ) 

2130  REM  X 

add  string  /K*/  to  output 

2140  DEFFN'99(K*) 

2150  REM  ;  add  string  to  output  buffer 
:  L2*  <  >  =L2*  I)  H« 

2160  REM  ;  print  status  of  output  buffer 

2170  GOSUB  '101(17,1,0,0) 

:  L3*< )=L2*< ) 

:  *TRAN  <  L3*  < ) , HEX  < 5B7B5D7D8 1 0E82  0F2  02  0 ) ) R 

:  *TRAN(L3»(),“ . •) 

:  *TRAN(L3*< ) ,HEX <40202020  )  )R 
:  SELECT  PRINT  005(64) 

:  PRINT  HEX (06); 

:  PRINT  L3*<) 

:  PRINTUSING  “current  page  forsat  (##!“ ,VAL(STR(Q*(1> .64) ) 
2100  REM  ;  if  output  buffer  not  full 
:  IF  L2*(5)=“  “  THEN  2260 
2190  0*< )=L2*<  > 

2200  L2*( ) =L2* ( 5 ) 

2210  *TRAN(0*< ) ,X2*)R 

2220  DATA  SAVE  BA  T  #1,(03,03)  Q*<) 

2230  REM  ;  testing  only  (operator  wait):  KEY IN  A2* 

2240  REM  ;  if  disk  fill  not  full 

:  IF  03  <02-1  THEN  2260 

2250  STOP  “output  file  full  . “ 

-2260  RETURN 

2270  REM  X 

subroutine  (1.00) 

2280  REM  ;  add  coaaand  /K*/  to  output 
2290  DEFFN'100(K*) 

2300  L2*()»L2*()  fr  HEX(7B)  &  K*  fc  HtX(7D) 

:  COSUB  '99( *  “) 

2310  RETURN 

2320  REM  Zt 
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subroutine  (111) 

S330  REh  ;  add  extra  leading  (line  advance) 

2340  DEFFN'lll(P) 

2350  CONVERT  P  TO  PS,«M») 

2360  K»*‘el‘  &  PS 

2370  COSUB  'IOO(KS) 

2380  RETURN 

2390  REN  Z 

subroutine  ( 102) 

2400  REM  ;  invoke  new  aode 

2410  DEFFN'102(M2) 

2420  REM  ;if  aode  already  invoked  -  exit 
:  IF  M2-M1  THEN  2470 
2430  M1=M2 

2440  CONVERT  Ml  TO  M*,<#) 

2450  K*  =  ‘g’  fi>  MS 
2460  COSUB  ' 100(KS) 

-2470  RETURN 

2480  REM  Zt 


64 


TAEG  Report  No.  88 


subroutine  (181) 


•490  REM  X 


the  next 


lines  —or'—  until  m  blank  line  is  incountered 


BOO  OEFFN'ISKC) 

10  REM  ;  init  line  length 
:  IF  L*1  THEN  L0*58 
:  ELSE  L0-64 

-8580  REM  ;find  next  non-blank  line 
:  IF  L  <  16  AND  STR(Q«(L),,L0><>*  *  f 
:  L-  L  ♦  1 

:  IF  L  >  16  THEN  8570 
:  GOTO  8580 

-8530  REM  Unit  line  length 

:  IF  L*1  THEN  L0-58 
:  ELSE  L0«64 
8540  REM  ;set  line 

:  COSUB  ■130(STR(OS(L),,L0)> 

:  GOSUB  'lOOCqc') 

8550  REM  ;  decresent  line  count 

:  C-  C-l 

:  IF  C-0  THEN  8570 

8S60  REM  ;set  next  line  if  non-blank 

:  L«L  *1 

:  IF  L<  16  AND  Q*(L><>*  •  THEN  8530 
-8570  RETURN 

SS80  REM  Xt 
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subroutine  (188) 

8590  REM  Z 

set  line  1  (headina  > 

8600  DEFFN'188 

8610  REM  ;add  lead  bove  heading 
:  COSUB  '111(99) 

8680  REM  ; invoke  heading  aode 

:  M0*3 

8630  REM  Jstrip  underline 

:  »TRAN(STR(Qf ( 1 ) , 6 ,53) ,X3* >7F  R 
8640  REM  ^single  col  /  1  inch  margins 
:  GOSUB  ' 100< *dt6g ,33p ,6p* ) 

:  GOSUB  'lOOCbfT 
8650  REM  *,set  hdg  w/  quad  1ft 

:  GOSUB  '130<STR<Q*<1) ,6,53)) 

*.  GOSUB  'lOOCtl") 

:  GOSUB  'lOOCet’) 

8660  REM  ;add  lead  above  rule 

:  GOSUB  '111(36) 

8670  REM  :set  rule 

:  GOSUB  '100 ( *bt* ) 

:  GOSUB  ' 100 ( " li" ) 

:  GOSUB  'lOOCtj*) 

:  GOSUB  'lOOCet*) 

8680  REM  ;lead  below  rule 

;  GOSUB  '111(45) 

8690  RETURN 

8700  REM  Zt 
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subroutine  (123) 

2710  REM  X 

set  curr  e  t~»  -fc  line  in  2-coi 

2720  DEFFN'123 

2730  REM  ;check  for  line  16  (goto  ref) 

:  IF  L<16  THEN  2740 
:  COSUB  '129 
:  GOTO  2880 

-2740  REM  Jcospute  start  of  text 
:  L1=PQ5 (Q* (L ) O’  “> 

2750  REM  :not  a  blank  line 

:  IF  Ll>  5  THEN  2755 
:  GOSUB  '111(16) 

:  GOTO  2880 

-2755  IF  STR  <Q$  (L  )  ,25 ,1)0*.  ‘THEN  2756 
:  GOSUB  '111(7) 

:  V8=V8-7 

-2756  IF  STR(Q*(L)  ,28,1)0"  .“OR  STR  (Q*  (L  >  .24 .3 )  <> "  “THEN  2757 
:  GOSUB  '111(4) 

:  V8=V8-4 
:  GOTO  2760 

-2757  IF  L1026THEN  2760 
:  GOSUB  '111(3) 

:  V8=V8-3 

-2760  REM  Jbegin  tab 

:  GOSUB  ' 100( "bt" ) 

2770  REM  ;set  sidehead  (if  any) 

:  IF  LI >23  THEN  2780 
:  M0=2 

:  GOSUB  ' 130 (STR (Q*(L) ,6,18)) 

-2780  REM  ?set  text  colusn 

:  GOSUB  'lOOCtl") 

:  M0  =  1 

2790  L1=P0S (STR (Q$ (L  ),  24  ,41)0“  "  )  +23 

:  IF  LI =27  THEN  STR (Q* <L ) ,24 ,3 ) =HEX (1B1A20 ) 

:  IF  Ll=26  THEN  STR <Q* <L ) ,24 ,4 >=HEX (18180920) 

:  IF  LI =28  THEN  STR <Q* (L > ,24 ,4 ) =HEX < 18181920 ) 

:  IF  LI <29  THEN  LI =24 
2800  Ll*( )=STR(Q*(L) ,L1) 

2810  L2=LEN(L1*()) 

2820  T*=“tl" 

:  IF  LI =24  THEN  2850 
2840  REM  ;  double  indent/set 

:  GOSUB  ' 100( " is6p" ) 

:  T$="tr" 

:  GOTO  2860 

-2850  REM  ;  not  horz  rule 

:  IF  PQS (STR  <Q$  <L ) ,L1  ,L2 >  <>  5F)  <>  0  THEN  2860 
:  GOSUB  '102(1) 

:  gosub  'loom") 

:  GOSUB  '100<"tj"> 

:  GOTO  2870 

-2860  REM  ;  set  2nd  col 

:  GOSUB  ' 130(STR(Q$(L) ,L1,L2) ) 

:  GOSUB  'lOO(Tt) 

-2870  REM  ;  end  tabs 

:  GOSUB  'lOOCet") 

-2880  RETURN 

2890  REM  XT 
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subroutine  (124) 


2900 


2910 

2920 


-2930 

2940 

2950 

-2960 

2970 

2980 

-2990 

3000 


3010 

3020 

3030 

■ 

3040 

3050 


3060 

3070 


-3000 

3090 

3100 


REM  X 

set  £2  czol  criterion  test 
DEFFN ' 124 

REM  ;  if  line  not  blank 
IF  Q$(L)  O  ’  *  THEN  2930 
GOSUB  '111(16) 

GOTO  3080 

REM  ;  begin  tab 

G05UB  'lOOCbt* ) 

REM  ;  set  itea  nuiber  for  col  £11 
LI  =  POS (Q* (L ) <> *  ■) 

IF  LI  >  8  THEN  2960 
GOSUB  '102(1) 

GOSUB  ' 99 (STR (Q$ (L ) ,L1 ,3  > ) 

GOSUB  ' 100<  *tr* ) 

REM  ;  set  syabol  for  col  Ill 

IF  STR  <  Q* ( L ) ,10,16)=’  *  THEN  2990 

GOSUB  ' 130 (STR  <Q$ (L ) , 10 , POS (STR (Q*(L ) .10.17)  =  “  ")-l>> 
GOSUB  ' 100< "tc" ) 

REM  ;  set  rule  for  col  111 
GOSUB  '102(1) 

GOSUB  ' 100< "li“ ) 

GOSUB  'lOOCtj') 

REM  ;  set  ite*  no.  for  col  £S 1 
IF  STR <Q$ <L ) ,33,32 >='  *  THEN  3080 
L1=P0S (STR (Q* (L ) ,32,33 > <> *  * )+31 
GOSUB  '102(1) 

GOSUB  '99 (STR (Q* (L ) ,Li,3) ) 

GOSUB  '100( “tr* ) 

REM  ;  SET  SYMBOL  FOR  COL  IB) 

GOSUB  '  130  (STR  (Q*  (L  )  ,Ll+4  ,POS  (STR  (Q*  (L).IO.IO**  ")-l>) 
GOSUB  ' 100( "tc” ) 

REM  ;  SET  RULE  FOR  COL  12) 

GOSUB  '102(1) 

GOSUB  '100  <  * li’ ) 

GOSUB  'lOOCtj') 

REM  ;  end  tab 

GOSUB  'lOO('et') 

RETURN 

REM  Zt 
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subroutine  (135) 

3110  REM  X 

set  3— col  def-suabol- 
3 ISO  DEFFN ' 1S5 

3130  REM  ;  if  line  not  blank 
:  IF  Q*(L><>'  ■  THEN  3140 
:  COSUB  '111(16) 

:  GOTO  3190 

-3140  IF  STR(Q*(L)t37,15>«-  ‘THEN  3150 
:  COSUB  ' 111(4) 

:  V8=V8-4 

-3150  REM  ;  begin  tabular 

:  COSUB  '100<*bf> 

:  REM  i  set  col-1  /qr 

:  COSUB  ' 130 (STR(Q*<L), 1,35)) 

:  COSUB  ' 100< "tr* ) 

3160  REM  :  set  Snd  col  /  qc 
:  COSUB  ' 130 (STR(Q*(L) ,S7,15) > 

:  cosub  'loo etc*) 

3170  REM  ;  set  col  3  /  ql 
:  COSUB  ' 130 <STR(Q*(L) ,43,30)) 

:  GOSUB  'lOOCtl') 

3180  REM  ;  end  tabular 

:  COSUB  '100 ref) 

-3190  RETURN 


3300  REM  Zt 
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subroutine  (126) 
:  REM  1 


currsnt  line  in  E-col  CRITERION  TEST 


]S10  DEFFN'126 

820  REM  (cDspute  start  of  text 
:  Ll-POS(aS(L><>*  ■) 

3230  REM  (not  •  blank  lint 

:  IF  Ll>  5  THEN  3235 
:  COSUB  111(16) 

:  GOTO  3300 


-3235  IF  STR(QS(L),23.1)<>'. 
:  COSUB  '111(7) 

:  V8-V8-7 
:  COTO  3240 


-3236  IF  STR(QS(L),26,1)<> 

COSUB  '111(4) 

.  V8-VB-4 
-3240  REM  (begin  tab 

COSUB  '100<*bt* ) 

REM  ;set  aid th tad  (if  any) 

IF  Ll>21  THEN  3250 
M0-2 

'  130(STR(QS(L) ,6,16) ) 
(begin  tab 
'100(*bt* ) 

_  ;stt  sidthtad  (if  any) 

IF  Ll>21  THEN  3250 
M0-2 

'130(STR(QS(L),6,16)) 
(set  text  colusn 
'lOOCtl*) 


■THEN  3236 


OR  STR(QS(L)  .22.3)0*  'THEN  3240 


.  COSUB 
3245  REM 
COSUB 
REM 


COSUB 
-3250  REM 

COSUB 
MO-1 

L1-P0S(STR(QS(L>,22,43><>*  *)  *21 
IF  Ll-25  THEN  STR(QS(L) ,22,3>-HEX(lBlA20> 

IF  Ll-28  THEN  STR <QS(L ) ,22 ,6 ) -HEX ( 1B1A201B1A20) 
IF  LI <29  THEN  LI -22 
LIS ( ) -STR (QS (L ) ,L1 ) 

L2 =LEN ( L IS ( > ) 

TS-*tl* 

IF  LI -22  THEN  3270 
3260  REM  (  double  indent/set 

COSUB  '  100 ( "islOp* ) 

TS-*tr* 

COTO  3280 

-3270  REM  ;  not  horz  rule 

(  IF  POS(STR(QS(L> ,L1,L2)  <>  5F)  <>  0  THEN  3280 
S  COSUB  '102(1) 

(  COSUB  'lOOCli*) 

(  COSUB  'lOOCtj*) 

!  COTO  3290 

-3280  REM  J  set  2nd  col 

(  TS-*tl* 

(  COSUB  '130(STR(QS(L) .L1.L2) ) 

(  COSUB  'IOO(TS) 

-3290  REM  (  end  tabs 

(  COSUB  'lOOCet*) 

-3300  RETURN 

3310  REM  XT 
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subroutine  (157) 

3350  REM  X 

sat  E-col  sysbol  / 
3330  DEFFN '  157 

3340  REM  ;  if  line  not  blank 
:  IF  Q*(L)<>*  *  THEN  3350 
:  COSUB  '111(16) 

:  GOTO  3480 

-3350  REM  :  begin  tab 
:  GOSUB  ' 100<  *bt* ) 

3360  REM  ;  set  ites  no.  for  col  m 
:  Ll“P05(Qs <L ) <>•  ■) 

:  IF  LI  >  8  THEN  3380 
3370  GOSUB  '105(1) 

:  COSUB  '99(STR(Q*(L>,L1,3)) 

-3380  GOSUB  'lOOCtr1) 

3390  REM  ;  set  syabol  for  col  til 
:  IF  STRfQ^D.lO.lG)-'1  *  THEN  3410 
3400  GOSUB  ' 130(STR(Q*(L) ,10,POS(STR(Q4(L) .10.16) 
-3410  GOSUB  ' 100( "tc* ) 

3450  REM  ;  test  for  final  criterian  tests 
:  IF  VAL(STR(Q$(1) ,64) )  =  39  THEN  C8  ■  58 

•  ELSE  C8=26 

3430  REM  :  tab  /  invoke  text  node 
:  L1*P0S(STR(Q$(L) ,C8)<>"  'HC8-1 
:  Ll*( )=STR(Q*(L),L1) 

!  L5=LEN(L1*0) 

I  TB-'tl* 

:  IF  LI  *  C8  THEN  3460 
:  IF  LI  >  50  THEN  3450 
3440  REM  ;  single  indent 
:  GOSUB  ' 100  <  * is3p " ) 

5  GOTO  3460 

-3450  REM  :  double  indent/set 

:  GOSUB  ' 100<  * isl5p" ) 

:  T***tr* 

-3460  REM  J  set  5nd  col 

:  GOSUB  ' 130<STR (QS  <L ) ,L1 ,L5 ) ) 

:  GOSUB  '100<T«) 

3470  REM  ;  end  tabs 

;  GOSUB  'lOOCet") 

-3480  RETURN 


3490  REM  Xf 
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subroutine  (128) 


3500  REM  2 


>t  2-col  symbol  /  def 


3510  DEFFN' 128 <C8).  .  ..  . 

3520  REM  ;  if  line  not  blank 
:  IF  Q$<L)<>*  ‘  THEN  3530 
:  COSUB  '111(16) 

:  GOTO  3620 

•3530  REM  ;  begin  tab 

:  GOSUB  ' 100 ( “bt* )  .  ,  ... 

3540  REM  ;  set  sysbol  for  col  ill 
:  L1*P0S<Q*<L)<>"  *) 

:  IF  Ll>20  THEN  3560  _ .  . 

3550  GOSUB  ' 130 (STR (Q$ (L) , 1 ,20 ) ) 

-3560  GOSUB  'lOOCtc*) 

3S70  REM  ;  tab  /  invoke  text  sode 
:  L1=P0S<STR(Q*(L) ,C8,38)<>*  ")tC8'l 
:  Ll*( )*STR(Q*(L) ,L1) 

:  L2-LEN (Ll< ( ) ) 

:  TS=“tl“  _  _ 

:  IF  LI  *  C8  THEN  3600 
:  IF  LI  >  50  THEN  3590 
3530  REM  *,  Single  indent 
J  GOSUB  'lOOCisSp* ) 

:  GOTO  3600 

-3590  REM  ;  double  indent/set 
:  GOSUB  ' 1 00 < * isl2p* ) 

:  T*="tr" 

;  GOTO  3600 

-3600  REM  ;  set  2nd  col 

:  GOSUB  ' 130<STR<Q<  <L ) ,L1 ,L2) ) 

:  GOSUB  '100<TS) 

3610  REM  ;  end  tabs 
:  GOSUB  'lOOCet  ) 

-3620  RETURN 

3630  REM  Xt 


I 
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subroutine  (129) 

3640  REM  Z 

set  goto  ref 

3660  DEFFN ' 129 
:  L  =  16 

:  IF  V8>0THEN  3660 
:  V8=V8+V9  -1 
:  V9  =  l 

-3660  REM  ;  cospute  start  of  text 
:  L1=P0S<Q<(L><>“  ’) 

3670  REM  ;  if  line  not  blank 
:  IF  LI  <  6  THEN  3740 
3650  REM  ;  begin  tab 

:  IF  5TR(Q<(L)  ,L  1,12)0  “To  Continue-  AND  STR(Q*<L)  .L1.12X>"To  continue’THEN 
3685 

:  STR (Q< (L ) ,L1 , 12 )  =  *  - 

:  L1=L1+12 

-3685  STR<Q<<L) ,L1+1 ,58-Ll > *0R  ALL<20> 

:  COSUB  ' 100( *bt" ) 

3690  REM  ;  tab  /  invoke  text  sode 
:  COSUB  'lOOCtl*) 

:  M0  =  1 

3700  L1O0S<STR<Q<<D  ,24,41)0-  ■  ) +23 
3710  Ll<( )=STR(Q<<L> ,Ll) 

3720  L2=LEN(L1*< ) ) 

3730  T*«“tl- 

:  IF  LI  >35  THEN  3740 
:  IF  LI  >  24  THEN  GOSUB  '100<-is4p") 

:  COSUB  ' 130<STR<Q<<D ,L1,L2) ) 

:  GOSUB  ' 100 <T< ) 

:  GOSUB  'lOOCet*) 

:  GOSUB  ' 111 <V8 ) 

:  GOSUB  ' 111 (V9 ) 

:  GOSUB  '111(16) 

:  GOTO  3770 

3740  REM  ;  set  continue  and  goto 
:  GOSUB  ' 111 (V8 ) 

:  GOSUB  '111<V9) 

:  GOSUB  '111(16) 

:  IF  Q<  < L ) < > "  -THEN  GOSUB  ' 130 (STR <Q$ <L ) ,L1 .L2 ) ) 

:  IF  Q< < L ) < > *  -THEN  GOSUB  'lOOCtr-) 

:  ELSE  GOSUB  'lOOCellS') 

3760  REM  ;  end  tabs 

:  IF  Q< (L ) <>■  “THEN  GOSUB  'lOOCet") 

-3770  V8=99 
:  V9=99 
:  RETURN 

3780  REM  Zt 
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subroutine  (130) 

3790  REM  Z 

set  a  line 

3800  DEFFN'130<L1*( ) ) 

3810  B*=HEX(7F> 

3820  REM  ;  coapute  start  of  text 
:  L1*P0S(L1$< )<>■  ’) 

3830  REM  ;  not  a  blank  line 
:  IF  L1O0  THEN  3840 
:  GOTO  3990 

-3840  Ll*< )«STR(L1*< ) , LI, 64 -LI) 

3850  L2-LEN<L1*<)> 

3860  REM  ;  test  for  all  caps 

:  IF  P0S(L1*( )>  5A )  <>  0  THEN  3880 
:  IF  P0S(L1$< )*  ■!■)  <>  0  THEN  3880 
3870  Bt“HEX ( 19 ) 

-3880  REM  ;  translate  space  chars/build  table 
:  *TRAN<L1*O,HEX(20AO)>R 

:  MAT  SEARCH  Ll*< XI ,L2-1>,  =HEX<20)  TO  W*(> 

3890  W=0 
3900  W0=0 

-3910  REM  ;  delis it  first  /  next  word 
:  W7=W0 
3920  W=W  +  1 
3930  W0=VAL (W$ (W ) ,2 ) 

3940  IF  WO-O  THEN  W0=L2*1 
:  REM  last  word? 

3950  IF  W0-W7O1  THEN  GOTO  3960 

:  IF  VER<STR(L1*(),W0*1,1),,#,)*1  THEN  3910 
:  IF  VER (STR(L1* <),W0*ltl),’.")sl  THEN  3910 
:  IF  VER<STR<L1<< ) , W0 +  1,1) » " > " >  = 1  THEN  3910 
:  T*="t j" 

:  GOTO  3910 

:  REM  IF  NO  WORD  BETWEEN  TWO  SPACES  -  TERMINAL  WITH  AN  EL 
-3960  IF  W=1  THEN  3970 
:  G05UB  '99<BO 
:  REM  INSERT  SPACE  BAND 
-3970  GOSUB  '  140 <STR  <L1*  < )  ,W7U ,W0-W7-1 ) ) 

:  REM  SET  WORD 
3980  IF  W0OL2  +  1  THEN  3910 
-3990  RETURN 

4000  REM  Zt 
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subroutine  (139) 

4010  REM  Z 

mm-t,  aunbol  table 
4020  DEFFN ' 139 

4030  REM  ; if  line  not  blank 
:  IF  Q0(L  ><>*  ‘THEN  4040 
:  GOSUB  '111(16) 

:  GOTO  4070 

-4040  REM  ;begin  tab,  sat  aid*  head  (if  anu) 
:  GOSUB  '111(7) 

*  URaUR-7 

:  GOSUB  'lOOCbt*) 

:  M0-2 

:  GOSUB  '130(STR(Q*(L),6,9)) 

:  GOSUB  'lOOCtl") 

:  mo«=i 

4050  REM  ;set  syabols 

:  MAT  SEARCH  Q*  (L ) ,  Z"T0  WOO 

:  w-o 

-4055  W-W+l 

:  W0-VAL(W»(W),2) 

:  IF  W0-0THEN  4060 
:  GOSUB  ' 141 (STR(QS (L ) ,W0 ,4 ) ) 

:  GOSUB  ' 100( *tc" ) 

:  GOTO  4055 

-4060  REM  ;end  tabs 

:  GOSUB  'lOOOef) 

-4070  RETURN 

4080  REM  Zt 
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subroutine  (140) 


4090  REM  X 
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set 


±  rig  X 


word  with 


urn  bo  X 


k  -up 


4100  DEFFN ' 140  <W$ ) 

4110  REM  ?  1,  3,  or  4  char  word  ? 

:  REM  WORD  LENGTH  *  0,  1,  2,  3,  4, 

:  ON  W0-W7  GOTO  4120,  4130,  4210.  4140.  4160 

:  GOTO  4210 

-4120  STOP  -0  -  word  length* 

-4130  REM  ; 1-char  wd  ♦  ?  vertical  rule  ? 

:  IF  W*<>  *♦*  THEN  4210 
:  w*=“*so*u" 

:  GOTO  4230 

-4140  REM  ;3-char  wd  ...  ?  elipses  or  set  #  ? 

:  IF  VER (W* , *X#i* ) =3  AND  STR(W*,1,1)=*#*  IHEN  4180 
:  IF  W*<>  “...*  THEN  4210 
:  GOSUB  '102 (M0) 

:  GOSUB  '  100 ( " In* ) 

:  IF  W0  <>  L2  +  1  THEN  4150 
:  IF  L=16THEN  4150 
:  STR(Q$(LH)  ,22,37  >=0R  ALL  (20) 

:  IF  P0S(Q* (L+l ) <>“  *)  <50  THEN  GOSUB  '100(*is8p") 
:  ELSE  GOSUB  '100(*is5p*) 

:  T*  =  *tj* 

:  GOTO  4250 

-4150  T*  =  *tj" 

:  IF  VER<STR<L14< ) ,L2-3,4) ,*#A#4* )<>4iHEN  4250 
:  STR(L1*< ) ,W0,L2-4-W0)=OR  ALL (20) 

:  GOTO  4250 

4160  REM  ?  page  ? 

:  IF  VER(W*,*#A##*)<>4  THEN  4170 
:  GOSUB  ' 102 <4 ) 

:  IF  STR(Wt,l,l)>al*  THEN  W$=STR(W*,2.3) 

:  GOTO  4240 

-4170  REM  ?  set  #  ? 

:  IF  VER<W*,*X##:a )=4  AND  STR (W* , 1 , 1) **#*  THEN  4180 
*.  ELSE  GOTO  4200 

-4180  REM  strip  leading  *0*  froa  set  # 

:  IF  STR(W4,2,1)="0*  THEN  W*=STR <W* ,3 .2 )  &HfcX(18> 

:  ELSE  W*=STR(W*,2,3)  &  HEX < 18  ) 

:  GOTO  4230 

4190  DEFFN' 141 <W$) 

-4200  REM  ?  suabol  ? 

:  MAT  SEARCH  Sl*< ) ,«W*  TO  S*  STEP  4 
:  IF  VAL  <S* ,2 ) =0  THEN  4210 
:  S=INT <  < VAL  <S4 ,2 ) -1 ) /4 ) +1 
:  W$=S3*(S,1) 

:  GOSUB  '102(8) 

:  GOTO  4240 

-4210  REM  ;  ?  underlined  ? 

:  MAT  SEARCH  W*.  >  HEX(7F)  TO  S* 

:  S=VAL(S*,2) 

:  IF  S«0  THEN  4230 

4220  REM  underlined  -  treat  char/char 
:  FOR  Cl=l  TO  W0-W7-1 

:  IF  STR(W*,C1,1)  >  HEX(7F)  THEN  GOSUB  '102(2) 

:  ELSE  GOSUB  '102 (M0) 

:  K$«STR(W$,C1,1)  AND  HEX(7F) 

:  GOSUB  '99<K«) 

:  REM  ;set  char 

:  NEXT  Cl 
:  GOTO  4250 

-4230  REM  :re-invoke  current  node 
:  GOSUB  '102 (M0) 

-4240  REM  set  word 
:  GOSUB  '99<W*> 

-4250  RETURN 
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LIST. IT 

This  program  contains  the  necessary  instructions  to  obtain  a  listing  of 
the  composed  text  created  by  the  TYPE.TST  program.  It  may  be  used  for  proof¬ 
ing  the  output  of  the  TYPE.TST  program  or  for  correcting  minor  transmission 
errors  should  they  occur. 
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list  -  XT 


0010  Z##  pge:  AUTHOR  Systea  3  < typesetter  transaission) 

0080  REM  i  declare  i/o  buffer 

DIM  080(4)64 

0030  REM  :  declare  eof  buffer 

DIM  01S(4)64 
1N1T(  00)010  0 

0040  REM  :  declare  teep  i/o  buffer 

DIM  030(4)64 

1000  REM  t  open  typesetter  file 

SELECT  «1  3S0 

DATA  LOAD  DC  OPEN  Til, "TYPESET* 

LIMITS  Til, 01, 08 ,03 
1080  SELECT  PRINT  005(80) 

PRINT  HEX (0306) 

PRINT  AT(10,10); 

INPUT  "TOUCH  'RETURN (EXEC)'  TO  START  SENDING _ " .R70 

PRINT  HEX (03) 

1030  IN  IT  (40)080  0 

STR(Q80(8), 15,30)-*  ARE  YOU  READY... 

GOSUB  '  118 
-1060  REM 

DATA  LOAD  BA  T  01,(03,03  )  080  0 
IP  0800  •  Q10(>  THEN  1110 

1080  REM 

GOSUB  '118 
GOTO  1060 


load  data  record  fro*  disk 


send  data  to  typesetter 


-1110  REM 
:  GOSUB 
:  END 


118 


send  end  of  transsission 


1800  REM  Z 


1810 

1880 

1830 

1840 

1850 

1890 

1300 

1310 

1380 


1380 

1390 

1400 


1410 

1510 


9900 

9908 

9904 

9906 

9908 

9910 

9918 

9914 

9916 

9918 

9980 

9988 

9984 

9986 


REM  ** 

REM  **  Subroutine  *********************************************  lie 
REM  **  Abstract  > 

REM  *•  To  Send  typesetter  data  file  to  typesetter  usina  its 
REM  **  X-on  /  X-off  telecoasunacations  option. 

REM 

DEFFN  '118 

REM  :  print  current  block 

SELECT  PRINT  005(64) 

PRINT  AT ( 15 , 0 , ) JHEX ( 06 ) 

PRINT  AT (8,0)*, 

Q3*< ) =Q8S ( ) 

$TRAN  (Q34( ) .HEX (5B0E5DOF808O) )R 

PRINT  Q3SO 

SELECT  PRINT  005(80) 

Q3S ( > -G8S ( > 

REM  :  duap  data  buffer  on  printer 

SELECT  PRINT  815(130) 

STRAN  <Q3S(),HEX(7E7F8080))R 

STRAN  ( Q3S ( ) , " *%%**%%*%%%%%%%% *  ) 

FOR  J  -  1  TO  4 
PRINT 

PRINT  HEX ( 0E ) ? Q3S ( J ) 

PRINT  HEX0F (Q8t ( J) ) 

NEXT  J 

SELECT  PRINT  005(80) 

RETURN 

Zi  Prograa  entry  utility  (prog. aid) 

DEFFN' 01 "LIST  SD" 

DEFFN '17* 

DEFFN '08 "PRINT  " 

DEFFN '18" PRINTUSING  " 

DEFFN '03" HEX C 
DEFFN' 19  "HEX0FC 
DEFFN '04 "IF 
DEFFN'80"STR(" 

DEFFN '05" THEN  " 

DEFFN '81"VALC 
DEFFN '06 "ELSE  " 

DEFFN '88"ATC 
DEFFN '07 "GOTO  " 


78 


r  ~  r'llllf 


TAEG  Report  No.  88 


9928 

9930 

9933 

9934 
9936 
9938 
9940 

9943 

9944 

9946 

9947 

9948 

9949 

9950 

9951 
9953 
9953 

-9954 


9955 

9956 

a 

a 

9964 


-9966 

a 

a 

• 

a 

a 

a 

a 

a 

a 

9968 

9969 

9970 

997  i 

9973 

9973 

-9998 

9999 


DEFFN ' 33' ALL < ‘ 

DEFFN' 08* FOR 
DEFFN '34 'DEFFN  '  ■ 

DEFFN' 09'STEP  ■ 

DEFFN' 35 -GOSUB  '  ■ 

DEFFN' 10'NEXT  ■ 

DEFFN '36 'RETURN1 
DEFFN '11 'ERROR  ' 

DEFFN' 37 'L INPUT  ' 

DEFFN '13 'SAVE  ' 

DEFFN  '38 'RENUMBER _ - _ TO - STEP..' 

DEFFN '13 'SCRATCH  1 
DEFFN '39'TRACE  1 
DEFFN '14'DISK  * 

DEFFN '30 "REM  1 
DEFFN '15 'SELECT  ' 

DEFFN '31 'SEARCH  " 

DEFFN ' 16 
*G 10/005(4003) 

*Gio/oo5<'@p@r@o@g@r@a@B@  @A@i@d@s@  *> 

4GIO/005 ( "@U@t@i@l@i@t@i@t@y@  @I@n@i@t@i@a@10i@z@a@t@i@o@n' > 

*G 10/005 (400D400A400A ) 

*G 10/005 C8s@tta0r0t0i0n0g0  01@i@n@e@  @n@u@a8b@e@r@: ' ) 
*GIO/005('@(@l@e@a@d@i@n@g@  @0@'@s@  0r0e0q0'0d0)0  *> 

*GID< 05300639, SI* > 

*GIO (710186 011E16D0011E51D 00171054310 .SI* ) 

*G10 (710186 021E36D 001 1E53D 00171 054330 .51* ) 

♦CIO (71018603 1E36D0011E53D00171054330 ,S1*  > 

♦CIO (71018604 1E46D0011E54D00171054340 .SI* ) 

*G 10/005 (400D400A ) 

*G 10/005 ( "@i@n@c@r@:@  0(010-01000  0u0s0e0  000  0f0o@r0  @1000)0  *) 
*GIO ( 053006397 10 18607 1E76D0011E57D001 710543 f 0 .SI* ) 

*TRAN (S1*<7,1>, HEX (3030 ))0FR 
♦CIO ( 050015570710 ,S1* ) 

*G 10/005 (400D400A ) 

*G 10/005 < ‘@a@d@d@r@e@s@s@ :@  ■> 

*G 10 (7 10 1860B7 10543B07 10 1860C7 10543C07 101B60D710543D0400D400C .SI*  > 
IF  STR (SI* , 11 , 1 ) <>'3 'AND  STR(S1* , 11 . 1 ) O'B" iHfcN  9966 
SELECT  #0  <STR(S1*,11,3)> 

ERROR  GOTO  9966 

*G 10/005 (400D400A400A400A ) 

DIM  S* <4 )64 

LIMITS  T'stat.nua" ,S,S1,S1 
ERROR  GOTO  9954 
♦GIO/005 (4003400A ) 

*G 10 / 0 05 ( * @R0E@A@D@Y@  0 ( @B@A@S@ I@O0 -030 ) * ) 

*G 10/005 (400A400A ) 

DATA  LOAD  BA  T(S+1)S*<> 

HEXPACKSTR (SI* ,9 ,3 )FR0MSTR (SI* ,  ,4 ) 

STR (SI* ,9,3) =DAC  STR (SI*, 7,1) 

HEXUNPACKSTR (SI* ,9,3 )TO  STR (S* ( >  ,  14 .4 ) 

STR (S*  < ) ,37,1) =STR (SI* ,7 , 1 ) 

DATA  SAVE  BA  T (5  +  1 , SI )5* ( ) 

LOAD  DA  T(S >9998,9998 

DEFFN '  0 
DIM  S* (4 )64 

LIMITS  T'stat.nua" ,S, SI, SI 

ERROR  GOTO  9954 

DATA  LOAD  BA  T(S+1)S*() 

HEXPACKSTR (SI*  ,9  ,3 )FR0MSTR(S* (  ) ,  14 .4 ) 

STR (SI*  ,9  ,3  >  *DAC  STR (S* (  )  ,37 , 1 ) 

HEXUNPACKSTR (SI*, 9, 3 )TO  STR(S*<  >  ,14.4) 

DATA  SAVE  BA  T (S  +  l  ,S1 >S* ( ) 

LOAD  DA  T(S) 9998,9998 

DEFFN  '  136  "1440  " 

♦GIO/005  (400D400C-400C ) 
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TRAN.TBL 

This  program  contains  the  matrix  of  the  symbol  mnemonic  codes  and 
the  corresponding  character  command  strings  required  by  the  typesetter. 
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0  *PSTAT  =  'CONSOLE' 

1000  REM  Z  WEATHER  SYMBOLS  TABLE 

1010  REM  TABLE  SIX)  CONTAINS  THE  NUMERIC  DESIGNAlORS  LOR  THE  CURRENT  WEA I  HER  Cti 
NDITION  SYMBOLS. 

1020  REM  TABLE  S3X)  CONTAINS  THE  OUTPUT  CODES  REQUIRED  TO  CREATE  THESE  SYMBOLS 
1030  COM  SI* (128)4,  S3* (128, 3) 13  :  REM  COMMON  SYMBOL  TABLES 

1040  REM  :  Sl*<>  -  DESIGNATOR  TABLE 

1050  REM  :  S3* ( )  -  SUBSITUT ION  TABLE 

1060  DIM  B*i:  B*=HEX(7B)  :  REM  BEGIN  COMMAND  (*  -  for  PENTA) 

1070  DIM  E*i:  E*=HEX (7D )  :  REM  END  COMMAND  (8  -  for  PENTA) 

1080  DIM  Z*5I  Z*='  REM  WAS  HEX (7B6P66357D ) :  REM  INVOKE  SYMBOLS-FONT  FOR  1-CHA 
R 

1090  Z 

1095  Z  !  !  Replacement  Code 


1096  Z  Keyword 


Description 


1100  Z 

!  Definition 
1110  Z . 


Meaory  Aid 


1202  Sl*< 
*  &  *T  +" 

1204  Sl«< 

:  S3*<  4 

1205  Sl*( 

:  S3*  <  5 

1206  Sl*< 

:  S3* (  6 

1207  Sl*< 

:  S3*<  7 

1208  Sl*( 

:  S3* (  8 

1209  Sl*< 

:  S3*  (  9 

1210  Sl*< 
:  S3*<  10 

1211  Sl*< 
:  S3*<  ll 

1212  S1S< 
:  S3*(  12 

1213  Sl«( 
:  S3*<  13 

1214  Sl*< 
:  S3*(  14 

1215  Sl*< 
:  S3*(  15 

1216  Sl*< 
:  S3* (  16 

1217  Sl*< 
:  S3*(  17 

1218  Sl*< 
:  S3* (  18 

1219  Sl«( 
:  S3*(  19 

1220  Sl*( 

:  sax  20 

1221  Sl*( 
:  S3* (  21 

1222  Sl*( 

:  sax  22 

1223  SIX 

:  sax  23 

1224  SIX 


•n.?. 

•x  • 


2)='Z02.'  : 
fit  B«  &  *g8' 

4 )  =*WW04' 

,2)=  '  ' 

5) =*WW05' 

,2)=  *  ' 

6) =*WW06‘ 

,2)=  '  ' 

7 )  =*WW07' 

,2)=  '  * 

8>='WW08* 
,2)=  '  * 
9)=*WW09* 
,2)=  '  * 

10) ='WW10* 

,2)=  '  ' 

11) *'WW11* 

,2) =  '  ' 

12) ="WW12* 
,2)=  '  ' 

13) ='WW13* 

,2)  =  '  ' 

14) =*WW14* 

,2)=  '  ' 

15) ="WW15“ 
,2)=  '  ' 

16) ='WW16* 

,2)=  *  ' 

17 )  ='WW17" 

,2)=  '  * 

18) **WW18' 
,2)=  '  ' 

19) *'WW19* 
,2)=  '  * 

20) -*WW20‘ 

,2)=*  '  * 

21) **WW21* 
,2)-  '  ' 

22) -"NW22* 
,2)-  '  ' 

23>-*WW23' 

,2)-  '  ' 

24  ) ='WW24 ' 

.2 )  •  '  ' 

2S )  -*WN25' 
.2  > «  '  ' 

2*>  =  'WWI e*' 


REM  THUNDER 
Sr  E*  Sr  '  O' 

REM  SMOKE 
:  S3* (  4,3)=  '  * 

REM  HAZE 
:  S3* (  5,3)=  '  ' 

REM  '  DUST 
:  S3X  6,3)=  '  ' 

REM  BLOWING  DUST 
:  S3* (  7,3)=  '  * 

REM  DUST  WHIRLS 
:  S3X  8,3)=  '  * 

REM  DUST  IN  SIGHT 
:  S3X  9,3)=  '  ' 

REM  TWO  BAR 
:  S3X  10,3)=  '  ' 

REM  SHALLOW  FOG  IN  PATCHES 
:  S3* (  11,3)=  '  ' 

REM  SHALLOW  FOG 

•  <53* (  IP  3)=  •  • 

REM  DISTANT  LIGHTNING 

:  S3X  13,3)=  '  ' 

REM  VIRGA 

REMSD 1ST ANT3PREC IPATAT ION 
:  S3X  15  3)=  *  ' 

REM  PRECIPITATION  IN  SIGHT 
:  S3* (  16,3)=  *  ' 

REM  DRY  THUNDER 
:  S3X  17,3 >=  '  ' 

REM  SQUALL 
:  S3X  18,3)=  '  ' 

REM  FUNNEL  CLOUD 
:  S3X  19,3)=  '  * 

REM  DRIZZLE  ENDED 
:  S3X  20,3)=  '  ' 

REM  RAIN  ENDED 
:  S3X  21,3)=  '  ' 

REM  SNOW  ENDED 
:  S3* (  22,3)=  '  • 

REM  RAIN  Sr  SNOW  ENDED 
:  S3* (  23,3)  *  ' 

REM  FREEZING  • 9ED 
:  S3X  24,3)=  '  ' 

REM  RAIN  SHOWERS  ENDED 

*  Q3* (  PC  3 ) ■  1  • 

REM  SNOW  STOWERS  ENDED 
:  S3*<  26,3)=  *  ' 

REM  HAIL  SHOWERS  ENDED 
r  •  :  S3X  27,3)=  '  • 

f  :  TsSjJte.  ■  • 

*•  DOCD 

UX  ?*,3)«  '  ' 

•*•  flux  OCCRfASQ 
'N  I*  ,  3  1  •  '  • 

DA*  «0  rMMCf 


1 .3  >•  ' 
«o 


!  Suabol 


S3*  ( 

2.1) =B« 

tr  *o4“ 

S3*  ( 

4.1)  = 

■w* 

S3*  ( 

5.1)  = 

■C' 

S3X 

6.1)  = 

■J* 

S3*  ( 

7.1)  = 

■  ■ 

S3*  ( 

8.1)  = 

■O' 

S3X 

9.1)- 

■E' 

S3X 

10.1)= 

"c" 

S3*  ( 

11.1)* 

Vi* 

S3X 

12 . 1 >  = 

•e' 

S3X 

13.1)» 

■o' 

S3*  ( 

14 . 1 )  = 

■w" 

S3X 

15.1 >= 

*q' 

S3*  ( 

16.1)= 

■  •  ■ 

S3X 

17.1)= 

■tl' 

S3*  ( 

18.1)= 

'♦5* 

S3X 

19.1)= 

■*X*u 

S3*  ( 

20.1)= 

’*ss*u 

S3*  ( 

21.1)* 

■to* 

S3*  ( 

22.1)= 

■*».*u 

s 

(O 

23.1)* 

■*«(*u 

S3*  ( 

24.1)= 

■K' 

S3X 

2S.1)= 

•2' 

S3*  ( 

26.1)- 

■6' 

S3X 

27.1)- 

=  0= 

S3*  ( 

28.1>- 

•Y' 

S3X 

29.1)- 

■M* 

S3*  ( 

30. D- 

•D* 

sax 

31.1>- 

i 
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:  S3*<  31,2)=  ■  ■ 
1232  SI* (  32>“*WW32‘ 
:  S3*(  32,2)“  *  ' 

:  S3* (  31,3)“  ■  ■ 

REM  DUST,  INCREASED 
:  S3*(  32,3)“  *  * 

:  S3*  ( 

32.1)“ 

•N‘ 

1233  Sl*<  33 ) *’WW33‘ 

REM  HEAVY  DUST,  DECREASED 

:  S3*  ( 

33.1)“ 

•T* 

:  S3*<  33,2)“  *  ‘ 

:  S3*(  33,3)“  *  • 

1234  Sl*(  34 ) “"WW34* 

REM  HEAVY  DUST,  ND  CHANCE 

:  S3*  ( 

34.1)» 

:  S3* (  34,2)“  ‘  * 
1235  Sl*<  35)“*WW35" 

*  C1}* (  34  3 l x  *  • 

REM  HEAVY  5uST ,  INCREASED 

:  S3*  ( 

35.1)- 

•d* 

:  S3*(  35,2)“  ’  ' 
1236  51* (  36)“"WW36" 

:  S3*<  35,3 )«  •  ■ 

REM  LIGHT  DRIFTING.  LOW 

:  S3*  < 

36.1)> 

•t* 

:  S3*<  36,2)“  *  ■ 
1237  Sl*<  37>«-WW37* 

:  S3*<  36 ,3) «  •  * 

REM  HEAVY  BLOWING.  LOW 

:  S3*  ( 

37.1)“ 

•n" 

:  S3* (  37,2)=  *  * 
1238  Sl*<  38)>aWW38‘ 

:  S3* (  37,3)=  •  * 

REM  LIGHT  BLOWING.  HIGH 

:  S3*  ( 

38.1)- 

:  S3*(  38,2)=  •  * 

:  S3* (  38,3)“  ■  ’ 

1239  Sl*<  39)  “^39’ 

REM  HEAVY  BLOWING.  H1CH 

:  S3*  ( 

39.1)- 

"K* 

:  S3*(  39,2)“  ■  * 

:  S3* (  39,3 >=  *  • 

1240  Sl*(  40 >  **WW40‘ 

REM  FOG  IN  SIGHT 

:  S3*  ( 

40.1)“ 

■  /  a 

1  S3*(  40,2)=  ■  ■ 

:  S3* (  40,3)=  *  ■ 

1241  Sl*<  41 ) “*WW41 ■ 

REM  FOG  IN  PATCHES 

:  S3*  < 

41.4)* 

■♦2" 

:  S3*(  41,2)=  ■  • 

:  S3* (  41,3)=  ■  • 

1242  Sl*<  42 ) “‘WW42’ 

REM  GROUND  FOG,  DECREASED 

:  S3  *  < 

42.1)- 

■♦6* 

:  S3*(  42,2)=  ‘  * 
1243  Sl*<  43 )  =  *WW43* 

j  53$ (  42  3 ) s  ■  ■ 

REM  THREE  $AR,  DECREASED 

:  S3*  ( 

43.1)= 

*?• 

:  S3* (  43,2)=  *  ■ 

:  S3* (  43,3)=  •  ■ 

1244  Sl*<  44 )  =  *WW44  * 

REM  HEAVY  GROUND  FOG 

:  S3*  ( 

44.1)= 

■tx' 

:  S3*<  44.2)“  ■  ■ 
1245  Sl*<  45)“*WW45* 

:  S3* <  44,3)=  *  * 

REM  THREE  BAR 

:  S3*  < 

45.1)« 

*«sk*u* 

:  S3*(  45,2)=  *  * 

:  S3* (  45,3)=  *  ■ 

1246  Sl*<  46)“'MW46‘ 

REM  GROUND  FOG,  INCREASED 

:  S3*  ( 

46.1)“ 

•*sl*u“ 

:  S3* (  46,2)*  *  ■ 

:  S3* (  46,3)=  ’  ' 

1247  Sl*(  47 ) “‘WW47* 

REM  THREE  BAR,  INCREASED 

:  S3*  ( 

47.1)= 

■*»)*u* 

:  S3*(  47,2)=  ■  ‘ 

:  S3* (  47,3)=  ■  * 

1248  Sl*(  48)='WW48‘ 

REM  RIME  FOG 

:  S3*  < 

48.1)= 

•X* 

:  S3* (  48,2)=  '  * 
1249  Sl*<  49 ) **WW49‘ 

:  S3* <  48,3)=  '  ' 

REM  HEAVY  RIME  FOG 

:  S3*  ( 

49.1)= 

*3* 

:  S3*<  49,2)=  ■  * 

:  S3* (  49,3)=  "  1 

1620  Sl*<  50 ) ="WW50" 

REM  ONE  DRIP 

:  S3*  ( 

50.1)= 

•7‘ 

:  S3*<  50,2)=  ■ 

:  S3* (  50,3)*  ’  * 

1630  Sl*<  51 ) =’WW51" 

REM  TWO  DRIP 

:  S3*  < 

51.1)* 

*B“ 

:  S3* (  51,2)=  ■ 

:  S3* <  51 ,3 >=  ’  ’ 

1640  SI* (  52)=“WW52" 

■ 

• 

REM  VERTICAL  TWO  DRIP 

:  S3*  ( 

52-l)« 

■c- 

:  S3* (  52,2)=  * 

:  S3*<  52,3)“  ’  ■ 

1650  Sl*<  53)“"WW53" 

■ 

REM  THREE  DRIP 

:  S3*  ( 

53.1)= 

•R* 

:  S3* (  53,2)=  ■ 

:  S3* (  53,3)“  ’  * 

1660  Sl*(  54 ) *‘WW54“ 

REM  VERTICAL  THREE  DRIP 

:  S3*  ( 

54.1)= 

'L‘ 

:  S3* <  54,2)=  * 

:  S3*(  54,3)=  *  ■ 

1670  SI* (  55)="WW55" 

REM  FOUR  DRIP 

:  S3*  ( 

55.1)= 

•sa 

:  S3* (  55,2)=  * 

:  S3* (  55,3)“  *  * 

1680  Sl*(  56)="WW56* 

REM  FREEZING  DRIZZLE 

:  S3*  ( 

56.1)= 

■A" 

:  S3* (  56,2)=  " 

:  S3*<  56,3)=  *  * 

1690  Sl*<  57 ) =*WW57 " 

REM  HEAVY  FREEZING  DRIZZLE 

:  S3*  < 

57.1>« 

■b* 

:  S3* (  57,2)=  ■ 

:  S3* (  57,3)*  "  • 

1700  Sl*<  58)=*WW58" 

REM  DRIZZLE  6  RAIN 

:  S3*  < 

58.1)= 

■r" 

:  S3*(  58,2)=  ■ 

:  S3* (  58,3)“  *  1 

1710  si*(  sg^-wwsg* 

REM  HEAVY  DRIZZLE  6  RAIN 

:  S3*  ( 

59.1)= 

•la 

:  S3* (  59,2)=  ' 

:  S3* <  59,3)*  *  " 

1720  SI* (  60)=’WW60* 

REM  ONE  DROP 

:  S3*  ( 

60.1)“ 

:  S3*(  60,2)=  ■ 

:  S3* (  60,3)=  *  * 

1730  Sl*<  61)“*WW61" 

REM  TWO  DROP 

:  S3*  < 

61.1)“ 

:  S3* (  61,2)=  ■ 

:  S3* (  61,3)“  •  " 

1740  si* (  eej-'wwes* 

REM  VERTICAL  TWO  DROP 

:  S3*  < 

62.1)- 

•q’ 

:  S3* (  62,2)=  * 

:  S3* (  62,3 )«  ’  * 

1750  Sl*<  63 ) **WW63* 

REM  THREE  DROP 

:  S3*  ( 

63.1)= 

■x" 

:  S3* (  63,2)=  * 

:  S3* (  63,3)“  ■  " 

1760  Sl*<  64 ) ="WW64 * 

REM  VERTICAL  THREE  DROP 

:  S3*< 

64.1)“ 

■  _  * 

:  S3* (  64,2)=  ■ 

:  S3* (  64,3)=  *  * 

1770  SI* (  65>=’WW65 

REM  FOUR  DROP 

:  S3*  ( 

65.1)= 

■t3* 

:  S3* (  65,2)=  ’ 

:  S3* (  65,3)=  *  ■ 

1780  Sl*(  66 ) =*WW66" 

REM  FREEZING  RAIN 

:  S3*  ( 

66.1)= 

*  ♦7" 

:  S3* (  66,2)=  * 

:  S3* (  66,3)=  *  " 

1790  Sl*<  67 ) “"WW67 * 

REM  HEAVY  FREEZING  RAIN 

:  S3*  ( 

67.1)= 

a  a  « 

:  S3* (  67,2)=  ■ 

:  S3* (  67,3)*  "  * 

1800  SI* (  68)=*WW681 

REM  RAIN  6  SNOW 

:  S3*  ( 

N 

H 

CO 

u> 

•  (* 

:  S3* <  68,2)=  • 

:  S3* (  68,3)“  "  ' 

1810  SI* <  69 ) =*WW69" 

REM  HEAVY  RAIN  6  SNOW 

:  S3*  ( 

69.1)= 

■*»-*u 

■  :  S3* (  69,2)=  ' 

:  S3* (  69,3)=  ■  ’ 

1820  Si*  C  7 0  >  =*WW70" 

REM  ONE  FLAKE 

:  S3*  ( 

70.1)“ 

"*»f*u 

*  :  S3* (  70,2)*  ' 

:  S3* (  70,3)“  ’  * 

1830  Si* <  7 1 )  =  “WW7 1  * 

REM  TWO  FLAKE 

:  S3*  ( 

71.1)“ 

"*»a*u 

n 

j  ! 

\i 


;1 
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*  :  53$ <  71,2)=  *  * 

:  S3$<  71,3)=  *  * 

1840  Sl$<  72 ) =*WW72*  : 

REM 

VERTICAL  TWO  FLAKE 

:  S3$  ( 

72.1)* 

*Z* 

:  S3$ (  72,2)=  *  * 

:  S3$<  72 ,3 )■  *  * 

1850  Sl$<  73)**WW73‘  : 

REM 

THREE  FLAKE 

:  S3$  ( 

73.1)* 

*4* 

:  S3$ (  73,2)*  *  * 

:  S3$<  73,3)=  *  * 

1860  SI* (  74>«*WW74*  : 

REM 

VERTICAL  THREE  FLAKE 

:  S3$  ( 

74.1)- 

•8* 

:  S3$(  74 ,2 ) =  *  * 

:  S3$<  74,3)*  *  * 

1870  Sl$<  75)='WW75*  : 

REM 

FOUR  FLAKE 

:  S3$  ( 

75.1)« 

•v* 

:  S3$(  75,2 )«  *  * 

:  S3$(  75,3)*  *  * 

1880  Sl$<  76)«*WW76*  : 

REM 

ICE  PRISMS 

:  S3$( 

76.1)* 

*P* 

:  S3$ (  76,2)=  *  * 

:  S3$ (  76,3)=  *  * 

1890  Sl$(  77)**WW77*  : 

REM 

SNOW  GRAINS 

:  S3$( 

77.1)* 

•u* 

:  S3$ (  77,2)=  *  * 

:  S3$<  77,3)-  *  * 

1900  Sl$(  78)=*WW78*  : 

REM 

SNOW  CRYSTALS 

:  S3$< 

78.1)* 

*F* 

:  S3$<  78,2)=  *  * 

:  S3$ (  78,3)=  *  * 

1910  Sl$(  79)**WW79*  : 

REM 

SLEET 

:  S3$  < 

79,1)= 

*H“ 

:  S3$<  79,2)=  *  * 

:  S3$<  79,3)=  *  * 

1920  Sl$(  B0)**WW80*  : 

REM 

RAIN  SHOWERS 

:  S3$  ( 

80.1)* 

*1* 

*.  S3$<  80,2)=  *  * 

:  S3$<  80,3)=  *  * 

1930  Sl$(  81)«*WW81*  : 

REM 

HEAVY  RAIN  SHOWERS 

:  S3f( 

81,1)= 

*  V* 

:  S3$ (  81,2)=  *  * 

:  S3$<  81,3)=  *  * 

1940  51$ (  82 ) =*WW82"  : 

REM 

VIOL ANT  RAIN  SHOWERS 

.  :  S3$( 

82.1)* 

*u* 

:  53$ (  82,2)=  *  * 

:  S3$<  82,3)*  *  * 

1950  Sl$<  83 ) **WW83*  : 

REM 

RAIN  &  SNOW  SHOWERS 

:  S3$< 

83.1)= 

*f* 

:  S3$(  83,2)=  *  * 

:  S3$ (  83,3)=  *  * 

1960  Sl$(  84)*“WW84*  : 

REM 

HEAVY  RAIN  &  SNOW  SHOWERS 

:  S3$( 

84.1)= 

*i* 

:  S3$ <  84,2)=  *  * 

:  S3$(  84,3)=  *  * 

1970  Sl$(  85)**WW85*  : 

REM 

SNOW  SHOWERS 

:  S3$  ( 

85.1)* 

•h* 

.*  S3$<  85,2)=  *  * 

:  S3$<  85,3>=  *  * 

1980  Sl$<  86)**WW86*  : 

REM 

HEAVY  SNOW  SHOWERS 

:  S3$  ( 

86.1)* 

:  S3$(  86,2)=  *  * 

:  S3$ <  86,3)=  *  * 

1990  Sl$<  87 ) *  *  WW87  *  : 

REM 

SMALL  HAIL  SHOWERS 

:  S3$( 

87.1)= 

*2* 

:  53$ (  87,2)=  *  * 

:  S3$ (  87,3)=  *  * 

2000  Sl$<  8B)=*WW88*  : 

REM 

HEAVY  SMALL  HAIL  SHOWERS 

:  S3$  ( 

88.1)= 

■i* 

:  S3$<  88,2)*  *  * 

:  S3$<  88,3)=  *  * 

2010  Sl$<  89)  =  *WW89*  .* 

REM 

HAIL  SHOWERS 

:  S3$  ( 

89.1)* 

■♦4“ 

:  S3$ (  89,2)=  *  * 

:  S3$<  89,3)=  *  * 

2020  Sl$(  90 ) =*WW90"  : 

REM 

HEAVY  HAIL  SHOWERS 

:  S3$( 

90.1)= 

*$S»$U 

*  :  S3$ (  90,2)=  *  * 

:  S3$<  90,3)=  *  " 

2030  Sl$<  91 ) *"WW91*  : 

REM 

THUNDER  ENDED.  RAIN 

:  S3$  ( 

91.1)* 

•  1  ■ 

:  53$ (  91,2)=  *  * 

:  S3$ (  91,3)=  *  " 

2040  Sl$(  92 ) =*WW92*  : 

REM 

THUNDER  ENDED.  HEAVY  RAIN 

:  S3$  ( 

92.1)= 

*  >* 

:  S3$ (  92,2)=  *  * 

:  53$ (  92,3)=  *  * 

2050  51$ (  93 ) ="WW93*  : 

REM 

THUNDER  ENDED.  SNOW  OR  HAIL  :  S3$ ( 

93.1)= 

*$sb$u 

*  :  S3$ (  93,2)=  *  * 

:  S3$ <  93,3)=  *  * 

2060  Sl$(  94 ) =*WW94“  : 

REM 

THUNDER  ENDED.  HVY  SNW/HAIL  :  S3$< 

94.1)= 

•$so$u 

*  I  S3$ (  94,2)=  *  * 

:  S3$(  94,3)*  *  * 

2070  SI* (  95)«*WW95*  : 

REM 

WET  THUNDER 

:  S3$  ( 

95.1)= 

*$si$u 

*  :  S3$<  95,2)=  *  * 

:  S3$ <  95,3)*  *  * 

2080  Sl$<  96 )=*WW96“  : 

REM 

THUNDER  &  HAIL 

:  S3$  ( 

96.1)= 

■Q" 

I  S3$ (  96,2)=  *  * 

:  S3$<  96,3)=  *  * 

2090  Sl$(  97 ) ="WW97*  : 

REM 

HEAVY  WET  THUNDER 

:  S3$  ( 

97.1>= 

*1" 

:  53$ (  97,2)=  *  * 

:  53$ (  97,3)=  *  * 

2100  SI* (  98 ) ="WW98*  : 

REM 

THUNDER  &  DUST 

:  S3$  ( 

98,1)= 

*5* 

:  53$ <  98,2)=  ■  * 

:  53$ (  98,3)=  *  * 

2110  SI* (  99 ) **WW99*  : 

REM 

HEAVY  THUNDER  &  HAIL 

:  S3$  ( 

99.1)- 

*9* 

;  53$ (  99,2)=  *  •  :  53$ (  99  3)=  *  * 

2115  Sl$ < 100 ) =*$85 .  ’ :  REM  SNOW  SHOWERS:  S3$<100.1>=  "h" :  S3$<100.2>«  ’  * :  S3 

$(100,3)=*  * 

2120  I . . . ! . . !  - . . 

_ -i - 

2140  FOR  I  =  4  TO  99 

2150  Sl$  =  *  Z'&STR (Sl$ (I)  ,3  ,2  )&" 

2160  S1$(I>  =  Sl$ 

2170  NEXT  I 

2190  LOAD  T#o,  'TYPE .TST"  0  ,  6998  BEG  6999 
2200  END 

6999  LOAD  T*0,  ‘TYPE. INI*  7000,  BEG  0 
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SEND. IT 

This  program  contains  the  necessary  instructions  for  transmitting  the 
composed  text  stream  created  by  the  TYPE.TST  program  to  the  typographer. 
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8END . XT 


•000  OPSTAT  -  ‘WEST 

•OlO  ZOO  pgi:  AUTHOR  Systes  3  (typesetter  transaission) (Typographies  dataphone 
nuaber  is  893-78931 

0080  REM  :  declare  i/o  buffer 

!  DIM  080(4)64 

0030  REM  :  daclar*  aof  buffar 

DIM  Q10(4)64 
1N1T  (00 >010 ( ) 

0040  REM  :  declare  teae  llo  buffer 

DIM  030(4)64 

00S0  REM  ;tape  end  coaeand  -  *0te‘ 

:  DIM  T03 

:  T0«*0te* 

1000  REM  :  open  typesetter  file 

:  INPUT  'Enter  disc  containing  data  to  be  sent'DO 
:  SELECT  01  <D0> 

:  DATA  LOAD  DC  OPEN  T01 . 'TYPESET* 

:  LIMITS  TOl.01,08.03 
1080  SELECT  PRINT  005(80) 

:  PRINT  HEX (0306) 

:  PRINT  AT(10,10); 

:  PRINT  'Typographies  dataphone  0  is  893-7893* 

:  INPUT  'TOUCH  'RETURN (EXEC)'  TO  START  SEND INC _ * .R/O 

:  PRINT  HEX (03) 

-1060  REM 

’  OOPEN  01 

:  DATA  LOAD  BA  T  01,  *03,03  )  080  0 

:  ip  Q8»o  «  Qion  then  1110 

1080  REM 

:  COSUB  '118 
:  GOTO  1060 


load  data  record  fros  dish 


send  data  to  tupesetter 


-1110  REM 

COSUB 


118 


send  end  of  transsission 


SC 10  DISK  RELEASE  01  (4400) 

DATA  LOAD  DC  OPEN  TOl , 'TYPESET* 
END 


1800  REM  X 


1810 

1880 

1830 

1840 

1850 

1890 

1300 

1310 

1380 


a 

1380 

a 

1480 

a 

a 

a 

-1430 

a 

e 

-1440 

a 

a 

a 

-1450 


REM  ** 

REM  **  Subroutine  #e**#e###***e*#*****#**«#**********#*#**#*#**  lie 
REM  **  Abstract  > 

REM  **  To  Send  typesetter  data  file  to  tupesetter  using  its 
REM  **  X-on  /  X-off  telecossunacations  option. 

REM  ** 

REM  *e*e*eee*#**##**e****##****#*#*#**##*#*****a* 

DEFFN  '  118 

REM  :  print  current  block 

SELECT  PRINT  005(80) 

PRINT  AT(15,0, ) (HEX (06) 

PRINT  AT (8.0); 

Q3S()-Q8S() 

STRAN  (Q3* ( ) ,HEX (5B7BSD7D80S0 ) )R 
SELECT  PRINT  005(64) 

PRINT  Q3SO 
SELECT  PRINT  005(80) 

REM  :  send  i/o  buffer  to  controller 

FOR  W9  »  1  TO  856 

REM  t  sense  for  x-off  char. 

KEYIN  /019,  R7S, 1430, 1430 
C0TQ  1460 

REM  J  not  x-off  char. 

PRINT  AT (09,85,50) ;*•  0  #  char  recived  fra  tupstr  (tstina  for  x-off) 

IF  STR ( R7S , 1 , 1 ) <  >HEX ( 13 )  THEN  1460 
REM  ;  wait  for  x-on  char. 

KEYIN  /019,  R7S, 1450, 1450 
PRINT  AT (10, 85, 50):'*  •  *  waiting  for  X-ON  *  *  *" 

KEYIN  R9S, 1450, 1450 
GOTO  1440 

REM  :  not  x-on  char. 

PRINT  AT (08,35,50) t  ♦  char  recived  fra  tupstr  (w/  x-on>* 

IF  STR  < R7S  ,1,1) OHEX ( 11 )  THEN  1440 
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1460  PRINT  AT (08, 55, 50); 

:  PRINT  AT (09 ,55,50 ) ; 

:  PRINT  AT (10, 55, 50); 

:  IF  STR(Q3$< )  ,W9,1)OHEX(07)THEN  1465 

1461  REN  release  disk  and  delay  33  seconds 
:  4CL0SE  41 

:  4GI0  SEND  TAPE  END  /01D  (AS00,  R8*>  T4 
:  PRINT  AT  <09 ,55,50 ) ;HEX ( 07 ) j "PAUSE  33  SECONDS* 

:  *G10  DELAY  33  SECONDS  (010A  OSFF  03FF  0400  7100  1551  4000  1913  1C14  E006) 
:  PRINT  HEX (07) 

:  40PEN  1465,41 
:  GOTO  1470 

1465  SGIO  XHT  FILLER  /01D  (A500.RBS)  T* 

:  PRINT  AT ( 09 ,55,50) ;HEX(070f  > ; *  INPUT  DISK  UNAVAILABLE* 

:  40PEN  1465,41 
:  GOTO  1470 

1465  REN  ;send  char  to  typesetter 

:  SCIO  SEND  CHAR  /01D  (A500.R8*)  Q2*(KW9.1> 

1470  WS  *  INT ( <  W9- 1 ) /64 ) ♦ 15 

:  M6  =  W9  -  (W5-15 )*64 

PRINT  AT  (W5  ,W6 )  ;STR(Q34  ( )  ,‘49 , 1) ; 

1480  NEXT  W9 

1500  SELECT  INPUT  001 

1510  RETURN 


Z4  Progras  entry  utility  (prog. aid) 

DEFFN'Ol'LIST  SD* 

DEFFN ' 17  * 

DEFFN' 05 'PRINT  * 

DEFFN '18* PRINTUSING  * 

DEFFN' 03  *HEXC 
DEFFN' 19  "HEXOFC 
DEFFN '04* IF 
DEFFN '50*STR<* 

DEFFN '05 "THEN  * 

DEFFN  '51  *VALC 
DEFFN '06 ’ELSE  * 

DEFFN '55* AT  <  * 

DEFFN '07* GOTO  * 

DEFFN ' S3* ALL C 
DEFFN' 08 ’FOR 
DEFFN '54 'DEFFN  '  * 

DEFFN' 09 ’STEP  * 

DEFFN '35 *GOSUB  '  * 

DEFFN '10 ‘NEXT  * 

DEFFN '56 ‘RETURN* 

DEFFN 'll ‘ERROR  * 

DEFFN' 37 *L INPUT  * 

DEFFN' 15*SAVE  * 

DEFFN '38 "RENUMBER  _ _ _ TO. . .  .STEP . .  * 

DEFFN '13 'SCRATCH  * 

DEFFN '39 ‘TRACE  * 

DEFFN' 14‘DISK  ‘ 

DEFFN '30 "REM  ‘ 

DEFFN '15‘SELECT  * 

DEFFN '31‘SEARCH  * 

DEFFN '16 
4010/005(4003) 

4GIQ/00S< 'fPfrtofgCrSaiaf  4A«l«dfs4  *> 

•010/005 ( '■UfltfiCIfiCtflifftfvl  f IMiatliMlIilxIaltfiMn’ ) 
«GIO/005(400D400A400A> 

4010/005 ( "isitiaf rf t«ifnfgf  41414n4e4  InluhtMilrl:1) 

4GIO/005(  ■•(«l«e#afdf  ifnigi  (0«'M  (rle«q(  ld«)l  ') 

•010(05300639.814) 

*GIO( 7 10 18601 IE 16D0011E51D0017 1054310 .814 ) 

40 10 ( 7 1 0 186 03 1E36D00 1 1E53D00171 054330 .814 ) 

4G10 (71 0186031E36D0011ES3DC017 1054330 .814 ) 

4G 10 (71018604 1E46D0011E54D00171054340.S14) 

40 10/005 (400D400A) 

40 10/005 ( ‘fitnCcf rC:C  «(«14-*140f  luMil  404  4f4o4r4  41404)4  *) 

40 10 ( 053006397 1018607 1E76D0011E57D0017 10543/0 .814) 

4TRAN ( S 14 <7 , 1 > , HEX ( 3  030 ) ) OFR 
4010(050015570710.814) 

40 10/005 (400D400A) 

4CIO/005(*4a«d#d4r4e*afs4;4  *) 

40 10 (7 101860B7 10543B07 101860C71054SC07 101860D710543D0400D400C .814 ) 
IF  STR(S14,ll,l)<>'3aAND  STR(314,11.1X>*B*1HEN  9966 
SELECT  40  <8TR(S14,U.3» 
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:  ERROR  GOTO  9966 

9968  *G 10/005 (400D400A400A400A) 

9969  DIM  S* (4)64 

:  LIMITS  T’stat.nua'.S.Sl.Sl 
:  ERROR  GOTO  9954 

9970  »GIO/005(4003400A> 

:  $cio/oo5 ( "@r@e@a8d@y@  @ <@B@Aes@i@c@-@2« ) ■ ) 

:  *G 10/005 (400A400A  > 

9971  DATA  LOAD  BA  T(S+1)S*() 

:  HEXPACKSTR (SI*  ,9 ,2 )FROMSTR (SI* ,  ,4 ) 

:  STR (SI* ,9 ,2 ) *DAC  STR(S1*,7,1> 

:  HEXUNPACKSTR (SI* ,9 ,2 )TO  STR(S*( ) ,14,4> 

:  STR(S*< ) ,37,1)=STR(S1*,7,1) 

*.  DATA  SAVE  BA  T(S+1,S1)S*( ) 

:  LOAD  DA  T(S> 9998, 9998 

9972  DEFFN'O 

:  DIM  S« ( 4 ) 64 

:  LIMITS  T"stit.mjB" ,S,S1,S1 
:  ERROR  GOTO  9954 

9973  DATA  LOAD  BA  T(SU>S*<) 

:  HEXPACKSTR (SI*, 9, 2 )FR0MSTR(S*( ) ,14.4) 

:  STR (SI* ,9.2 ) =DAC  STR(S*( ) ,37 ,1) 

:  HEXUNPACKSTR (SI*, 9, 2) TO  STR(S*( )  ,14.4) 

:  DATA  SAVE  BA  T(S+1 ,S1 )S*< ) 

:  LOAD  DA  T(S) 9998, 9998 

-9998  DEFFN  '  126  "1440  ‘ 

9999  *G10/005 (400D400C400C ) 


87/88 
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APPENDIX  B 

TYPOGRAPHER'S  SUBSTITUTION  TABLES 


89 
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TABLE  1 
NTC.FD 

This  table  was  used  to  translate  the  begin  tabular  and  end  tabular 
command  codes  and  the  "$"  code.  These  were  required  because  of  peculiarities 
of  the  Intercom  100  which  would  not  allow  these  codes  to  pass  on  to  the  Penta 
front  end  system  in  the  unmodified  form. 


-ire . 
rr  Hi 

t-l> 
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M:\llL  1  HO  i  i 
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a 

Ov) 
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A 1 J  \ 
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A 

oi 
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* t  i  \ 
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0,1 

Oiofl  <!\ 

A 

ii 

0.0 

!>ofl 

A 

0 
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01 

1  O 

"A 

A 

ll 

M 

\ 

)]. 

0.1 

\ 

\ 

.)], 

in 

\ 

\ 

01 

)0 

\ 

\ 

01 

1.0 

\ 

\ 

n 

1  0 

\ 

\ 

01 

.1 1 

\ 

\ 

n, 

).0 
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TABLE  2 


NTCA.FD 

This  table  was  added  to  permit  the  use  of  leadering  with  both  periods  for 
ellipses  and  with  em-dashes  for  creating  horizontal  rules. 


NTCA 

TYPE 

.FD 

MI  SC 

SEARCH  FOR 

REPLACE  WITH 

01 

00 

Sdl $si$u9\ 

$s$dll3$u\ 

0* 

00 

$c\ 

$q\ 

01 

00 

$  te\ 

$af 5S00OR+$te\ 

01 

00 

$ln#\ 

$dl(#$lf$s$dil«$ 

01 

00 

\ 

u\ 

01 

00 

AM\ 

A0\ 

01 

00 

Sg8»Ax\ 

$g88$\ 

01 

00 

\ 

\ 

01 

00 

\ 

\ 

01 

00 

\ 

\ 

01 

00 

\ 

\ 

01 

00 

\ 

\ 

01 

00 

\ 

\ 

01 

00 

\ 

\ 

01 

00 

\ 

\ 

01 

00 

\ 

\ 

01 

00 

\ 

\ 

01 

00 

\ 

\ 

01 

00 

\ 

\ 

01 

00 

\ 

\ 

01 

00 

\ 

\ 

01 

00 

\ 

\ 

01 

00 

\ 

\ 

01 

00 

\ 

\ 

01 

00 

\ 

\ 

01 

00 

\ 

\ 

01 

00 

\ 

\ 

01 

00 

\ 

\ 
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TABLE  3 

DATACMA.FD 


DATACMA.FD 

TYPE  MI  SC  SEARCH  for 

REPLACE  rtlfH 

01 

00 

~a\ 

Oof 70OsgOu\ 

(91 

00 

Ab\ 

Oof 7<m 

<01 

00 

Ac\ 

t  cw\ 

01 

00 

Ad\ 

Oof  7f»0s-0u\ 

01 

00 

~e\ 

0of73A5\ 

01 

00 

~f\ 

Oof  7(lo\ 

01 

00 

~g\ 

0sg0u\ 

01 

00 

Ah\ 

Oof l»A3\ 

01 

00 

A  i\ 

$si  $'i\ 

01 

00 

A  J\ 

Oof  I3A4\ 

01 

00 

^  k\ 

Oof  7<»0\ 

01 

00 

~1\ 

Oof 7tfq\ 

01 

00 

‘m\ 

Osm$u\ 

01 

00 

An\ 

0sn0u\ 

01 

00 

Ao\ 

Oof  10«OSOO'J\ 

01 

00 

y\ 

0sp0u\ 

01 

00 

q\ 

Oof  7**q\ 

01 

00 

Ar\ 

;  r  1\ 

01 

00 

As\ 

0  SS0w\ 

01 

00 

At\ 

Oof 7gA  3\ 

01 

00 

Aw\ 

Os'O-A 

01 

00 

~v\ 

1  c  1\ 

01 

00 

Aw\ 

=\ 

01 

00 

Ax\ 

Oof  1  JlrA 

01 

00 

"y\ 

Oof  1  9m\ 

01 

00 

Az\ 

oof  m\ 

01 

00 

\ 

\ 

01 

00 

\ 

\ 

01 

00 

\ 

\ 
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TABLE  4 


DATACMB . FD 


DATACMB.FD 

TYPE  MI  SC  SEARCH  FOR  REPLACE  WITH 


01 

00 

$fs\ 

$is\ 

01 

00 

$ll\ 

$lf\ 

01 

00 

$tc\ 

*Snt\ 

01 

00 

$tl\ 

I  $nt\ 

01 

00 

$  tr\ 

]  $nt\ 

01 

00 

$tw\ 

$dt\ 

01 

00 

$  al\ 

$du2<»\ 

01 

00 

$xl\ 

$du3«\ 

01 

00 

$  co\ 

$"! co\ 

01 

00 

~-\ 

$ch\ 

01 

00 

A 

A 

01 

00 

\ 

\ 

01 

00 

\ 

\ 

01 

00 

\ 

\ 

01 

00 

\ 

\ 

01 

00 

\ 

\ 

01 

00 

\ 

\ 

01 

00 

\ 

\ 

01 

00 

\ 

\ 

01 

00 

\ 

\ 

01 

00 

\ 

\ 

01 

00 

\ 

\ 

01 

00 

\ 

\ 

01 

00 

\ 

\ 

01 

00 

\ 

\ 

01 

00 

\ 

\ 

01 

00 

\ 

\ 

01 

00 

\ 

\ 

01 

00 

\ 

\ 

01 

00 

\ 

\ 

01 

00 

\ 

\ 

01 

00 

\ 

\ 
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SCAT  USER'S  GUIDE 

INTRODUCTION 

The  SCAT  system  is  designed  specifically  for  use  in  conjunction  with  the 
computer  authored  texts  in  symbol  learning  created  by  the  AUTHOR  system. 
Performing  the  three  functions  of  the  user's  subsystem,  COMPOSITION,  requires 
no  special  computer  operator  skills  on  the  part  of  the  user.  The  three 
functions  are: 

•  COMPOSE 

•  LIST 

•  TRANSMIT. 

These  functions  are  sufficient  for  preparing  the  computer  authored 
texts,  as  created  by  the  AUTHOR  system,  into  the  form  required  by  the  typog¬ 
rapher's  subsystem,  TYPESETTING. 

COMPOSITION  SUBSYSTEM  OPERATION 

INITIALIZATION.  The  system  is  initialized  by  clearing  the  CPU  and  loading 

the  executive  program,  START.  This  is  accomplished  by  performing  the  following 

steps: 

1.  Turn  power  switch  ON 

2.  Insert  SCAT  SYSTEM  OISK  in  an  available  disk  drive 

3.  Key:  RETURN  -  CLEAR  -  RETURN  to  clear  the  CPU 

4.  Key:  SELECT  DISK  anm 

where  "anm"  refers  to  the  disk  drive  containing  the 
SCAT  SYSTEM  DISK. 

Key:  RETURN 

5.  Key:  LOAD  -  RUN  -  RETURN 

This  will  load  the  executive  program,  START,  and  display  the  COMPOSITION 
subsystem  function  menu: 
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SCAT 

COMPOSITION  Subsystem 

KEY  FUNCTION  DESCRIPTION 

1  COMPOSE 

2  LIST 

3  TRANSMIT 

Depress  the  Function  Key  or  number  corresponding  to  function  desired. 


Depress  the  key  corresponding  to  the  number  of  the  function  desired. 
This  will  cause  the  program  required  to  execute  that  function  to  be  loaded 
and  a  display  appropriate  for  that  function  will  appear. 

COMPOSE  (Function  Key  1) 

This  function  performs  the  composing  and  replaces  the  mnemonic  symbol 
codes  used  by  the  AUTHOR  system  with  the  special  symbol  comnand  strings 
required  by  the  typesetter.  It  offers  the  option  of  either  composing  the 
entire  symbol  learning  package  or  composing  only  selected  pages  or  frames. 

The  system  will  first  inquire  as  to  the  disk  address  of  the  Programmed 
Instruction  file  created  by  the  AUTHOR  system. 


COMPOSE 

Enter  disk  address  of  Programmed  Instruction  file  ( — ) 


Insert  the  disk  containing  the  Programmed  Instruction  file  in  an  available 
disk  drive  and  enter  its  disk  address.  The  system  will  then  initiate  an 
inquiry  into  the  demographic  data: 


COMPOSE 

Enter  Job  Name  (U.S.  Navy _ ) 

Enter  PO  Number  ( _ ) 

Enter  Date  (da-mon-yr) 

Enter  Typographer's  PO  Number  ( _ ) 

Enter  Job  Sequence  Number;  Current,  First,  Last 

( _ _ ) 
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This  demographic  data  is  not  critical  but  does  provide  the  user  and  typo¬ 
grapher  with  a  means  of  identifying  a  particular  job  in  the  system.  If  the 
user  desires,  he  may  leave  blanks  for  the  data  requested;  however,  leaving  at 
least  the  "U.S.  Navy"  identifier  may  aid  the  typographer  in  keeping  his  jobs 
straight. 

Note:  Each  entry  of  demographic  data  must  be  followed  by  pressing  the  RETURN 
(EXEC)  key  in  order  to  be  acted  upon  by  the  computer. 

The  system  then  inquires  as  to  whether  the  entire  programmed  instruction, 
or  only  selected  pages  (or  frames)  are  to  be  composed: 


COMPOSE 

Enter  Option  from  Output  Selection  Menu  -  ? 

Output  Selection  1  -  Compose  entire  text 

2  -  Compose  selected  pages  (frames) 


If  option  1  is  selected,  by  entering  a  "1"  the  entire  package  will  be 
composed.  If  option  2  is  selected,  by  entering  a  "2"  the  system  will  compose 
only  those  pages  which  are  selected.  In  this  case,  it  will  compose  each 
selected  page  and  then  wait  for  another  to  be  selected  until  "STOP"  is 
entered.  When  the  last  page  (or  frame)  has  been  composed  under  option  1,  or 
"STOP"  has  been  entered  under  option  2,  the  system  will  add  the  necessary 
trailer  information  to  the  Composed  Text  file  and  then  return  to  the  Function 
Menu  display. 

LIST  (Function  Key  2) 

This  function  prepares  a  listing  of  the  Composed  Text  file  on  the  line- 
printer.  Turn  the  lineprinter  ON  and  depress  the  SELECT  switch  on  the  printer 
and  the  system  will  do  the  listing. 

TRANSMIT 

This  function  transmits  the  Composed  Text  file  to  the  TYPESETTING  sub¬ 
system  and  is,  therefore,  the  last  function  of  the  COMPOSITION  subsystem.  It 
requires  coordination  with  the  TYPESETTING  subsystem  and  it  is,  therefore, 
advisable  to  verify  with  the  typographer  that  his  subsystem  will  be  ready 
before  scheduling  this  function. 

The  system  will  first  display  a  list  of  steps  to  be  peformed: 
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(TRANSMIT 

1.  Make  sure  Telecommunications  Controller  is  connected  to  the  Modem 
and  set  for  300  baud. 

2.  Turn  the  Modem  ON. 

3.  Set  Modem  Originate/Receive  switch  to  ORIGINATE. 

4.  Dial  typographer's  telecommunications  number  on  telephone. 

5.  Place  telephone  handset  in  Modem's  cradle. 

6.  Verify  Communications  Indicator  Light  illuminated. 

7.  Depress  RETURN  to  start  transmitting. 


Upon  performance  of  the  listed  steps  in  sequence,  the  sytem  will  commence 
transmitting  the  Composed  Text  file  to  the  typographer  in  blocks  of  approx¬ 
imately  100  characters.  Upon  receiving  STOP  commands  from  the  typographer's 
system,  the  TRANSMIT  function  will  pause  until  a  SEND  command  is  received 
and  then  continue  with  the  next  block.  This  pause  permits  the  TYPESETTING 
system  to  store  the  received  data  and  get  ready  for  the  next  block.  When  all 
of  the  data  has  been  transmitted,  the  TRANSMIT  function  sends  an  End  of  Trans¬ 
mission  command  and  the  transmission  is  complete.  The  system  may  then  be 
secured. 
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APPENDIX  D 


Code  Sets 


Situ  i*  .1  tompubi  i  ,in  understand  numbers  only  .mil  not 
letleis  ami  symbols,  we  tan  tieline  eath  tharatler  <>t  the 
alphabet  as  a  unique  number.  We  tan  lurther  assign  a 
linit|Ue  numbei  to  am  other  symbol  we  neetl  in  our 
mat  lime's  language  or  tot/e  sef.  Using 8  bits,  we  tan  have 
a  possible  250  unique  tombinalinns  or  t  titles  (2").  Seven 
bits  gives  a  possible  128  t  titles  12’)  and  It  bits  a  possible 


04  i  I  here  are  several  stanilaid  t  title  sets  turrentlv  in 
use.  some  like  I  IS  anti  Selet  bit  use  li  bits.  ASC  II  uses  " 
bits,  anti  IBCDIC  uses  8  bits.  I he  Intercom  100  internal 
t  title  is  a  superset  ol  ASC  II  anti  uses  8  bits  I  he  table  below 
shows  the  binary  value,  the  decimal  equivalent,  otial 
value,  hexaclet  imal  value,  and  the  meaning  in  I  IK  l)U  . 
ASC  II.  Selet Irit ,  ITS,  and  Intercom  ItH)  Internal  C. title. 


U 

r  i 

I  j 


Binary 

Dei . 

Octal 

Hex. 

IBCDIC 

ASCII 

Seledric 

Unshift  Shift 

TTS 

InterCom  1(H) 
Internal  C  ode 

tllNIIIIMHIO 

000 

(HID 

00 

Nlll 

Nlll 

Spat  e 

Spat  e 

lape  1  eed 

(HMMH)IIO  t 

(Hll 

(Hll 

01 

SOM 

SOU 

1 

Ihin  Spate 

•  (bullet) 

1)0000010 

002 

002 

02 

SIX 

STX 

1 

r 

1 

Quad  left 

00000011 

001 

001 

01 

1  IX 

FIX 

1 

1 

1 

Quad  Right 

00000100 

(KM 

IHM 

(M 

PF 

EOT 

4 

S 

1  levale 

Quad  Center 

00000  III) 

DOS 

0()r> 

05 

HT 

INQ 

c » 

() 

IM  or  PI 

l  levate 

000001 10 

()()(> 

IKK. 

(H. 

1C 

AC  Is 

1 

1 

A 

y  (set  bom 

00000 1 1  1 

(H)7 

007 

07 

Dll 

111  l 

/ 

*> 

Indent  ipat.n 

00001000 

008 

Oil) 

08 

BS 

» 

Spat  e  Band 

1  m  l  eat  lei 

0000  loot 

00*1 

01  1 

0*1 

Kll 

HI 

Add  Ihin 

In  Dash 

0000 10  It) 

OKI 

012 

OA 

SMM 

LF 

e 

1 

S 

0000 10 II 

on 

Oil 

OB 

VT 

VT 

l> 

p 

l  m  Spat  e 

c  (tent  signi 

0000 1  too 

012 

014 

0C 

FF 

FF 

1 

• 

1)0001101 

on 

015 

0D 

CR 

CR 

8 

Return  (merge) 

00001 1 10 

014 

010 

01 

SO 

SO 

U 

Start  Command 

0000 1 1 1 1 

or> 

017 

01 

SI 

SI 

7 

1  nd  Command 

00010000 

010 

020 

10 

Dll 

Dll 

i 

(a) 

Return 

1  n  1  eader 

0001000 1 

017 

021 

II 

DC  1 

IXI 

'  (unquote! 

oootooio 

018 

022 

12 

DC2 

DC  2 

11 

N 

1) 

*4 

0001001 1 

010 

021 

li 

DC! 

DC! 

• 

•  (hyphen  i 

00010100 

020 

024 

14 

RTS 

DC  4 

/ 

/ 

K 

00010 10 1 

021 

025 

15 

Nl 

NAk 

4 

’m 

000101  III 

022 

020 

10 

US 

ST  N 

1 

*4 

til  >1 1  III  1 1 1 

07  1 

02"' 

17 

It 

1  111 

Hell 

»« 

(Him  looo 

024 

out 

18 

C  AN 

C  AN 

C 

N 

1  m  Spat  e 

000 1  toot 

02  r> 

on 

19 

IM 

FM 

* 

1 

.  it ommai 

1  n  Spat  e 

(Hit)  1  toil) 

()2(i 

012 

IA 

(  C 

SUB 

k 

k 

1 

1  Inn  Spat  e 

(MIDI  101 1 

027 

on 

111 

ESC 

M 

O 

Quad  left 

Figure  Spate 

00011 1(H) 

028 

014 

1C 

IFS 

FS 

UC 

UC 

C 

Dist.  Hyphen 

000 1 1  tot 

029 

(H5 

ID 

IC.S 

C.S 

KS 

US 

I  n  Spat  e 

Hyphen 

(H)OI  1  1  10 

010 

01b 

It 

IRS 

RS 

k 

t  (Dagger) 

0001 1111 

Oil 

017 

IF 

IUS 

US 

1C 

EC 

QR  or  1 M 

f  (copyright) 

00100000 

012 

040 

20 

DS 

SP 

1 

• 

T 

Spat  e 

OOKHKWl 

Oil 

(Ml 

21 

SOS 

i 

m 

M 

5 

!  (exclamation) 

00 1000 10 

014 

(M2 

22 

FS 

" 

X 

X 

Z 

(mitmou 

015 

041 

23 

# 

K 

C 

)  (parent 

# 

00 1(H)  1(H) 

010 

044 

24 

BYP 

$ 

0 

) 

1 

$ 

00 1(H)  101 

017 

(M5 

25 

LF 

% 

s 

s 

VR  or  SS 

*A» 

(H)  1(H)  1 10 

018 

(MO 

20 

IOB/ITB 

& 

It 

II 

W 

£ 

(K)I(KII  1 1 

019 

(M7 

1  SC/PRE 

V 

T 

2 

IXI  III  IIHH) 

040 

050 

28 

( 

- 

k 

H 

( 

Source: 

Intergraphics,  Inc. 
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limaiv 

Dec 

<  )<  (at 

Ilex. 

IIU  1  >14. 

AS( 

<MII<II<MM 

(Ml 

051 

OOIOIIIIO 

(MJ 

052 

2A 

SM 

• 

0010101 1 

041 

051 

211 

♦ 

00 10 1 IIMI 

IM4 

(154 

2< 

oo  to  I  to) 

(Ml 

055 

21) 

IN<2 

ooiomo 

(Mli 

II50 

21 

A<  Is. 

00101 1 1 1 

IM7 

(157 

21 

Oil 

/ 

(Nil  IINMHI 

(M8 

(MM) 

III 

0 

001  UMK)  1 

040 

(Mil 

II 

1 

(Mil  10010 

(ISO 

062 

12 

SYN 

2 

00110011 

051 

063 

33 

3 

00110100 

052 

064 

34 

PN 

4 

(Mil  10101 

051 

065 

35 

RS 

5 

(Mil  101 10 

054 

(MM) 

10 

IK 

<1 

(Mil  101 II 

055 

(M.7 

17 

tor 

7 

IK)  1 11000 

05(> 

070 

18 

8 

(Mil  1  l(M) 1 

057 

071 

1*1 

<1 

IMIIIIOIO 

05H 

072 

IA 

0011  011  1 

050 

071 

111 

; 

•  Mil  1  1  100 

(Mill 

(174 

K 

IK  4 

00 1  1 1  011 

IM>I 

075 

11) 

NAK 

00 1  1 1  1  10 

IMiJ 

070 

11 

00  1  1 1 1 1 1 

(Mi) 

077 

II 

SUB 

f 

0 1000000 

004 

100 

40 

SP 

@ 

01000001 

065 

101 

41 

A 

01000010 

066 

102 

42 

B 

01000011 

067 

103 

43 

C 

01000100 

068 

104 

44 

0 

01000101 

(MiO 

105 

45 

1 

01000110 

070 

106 

46 

r 

01000111 

071 

107 

47 

<; 

01001000 

072 

110 

48 

h 

oiooinoi 

071 

III 

49 

i 

0100 1010 

074 

1 12 

4A 

C 

i 

(IIOOIOII 

075 

111 

411 

• 

K 

011)01  IIMI 

0**l* 

III 

l( 

1 

OIIHII  101 

077 

115 

III 

i 

M 

OHM)  1 1 10 

078 

116 

41 

♦ 

N 

OIIMIIIII 

070 

117 

41 

i 

O 

01010000 

080 

120 

50 

& 

P 

01010001 

081 

121 

51 

Q 

01010010 

082 

122 

52 

R 

0101001 1 

081 

123 

53 

S 

(III)  10  l(M) 

084 

124 

54 

T 

OIIIIOIOI 

1185 

125 

55 

U 

OIOIOIIO 

080 

126 

5(i 

V 

1)1010)  1 1 

087 

127 

57 

w 

0101  IIMM) 

088 

1  to 

58 

X 

0101  1001 

080 

111 

59 

V 

0101 1010 

ovo 

1  12 

54 

i 

/ 

0101  Mil  1 

001 

III 

511 

% 

1 

0101  1  KM) 

iwj 

1 14 

5< 

• 

\ 

0101 1101 

(81 1 

115 

51) 

J 

1 

Sold  Ini 

1  IS 

oiti  IIMI 

( Inshitt 

Shot 

Internal  (  cm!** 

r 

R 

1  in  1  caller 

<1 

1) 

Y 

* 

(> 

♦ 

P 

,  (<  oniriMl 

Ml 

Nil 

(1 

II 

1  1 

<2 

(penodl 

III 

III 

1  n  1  cailcr 

1 

0 

(> 

II 

V 

V 

9 

1 

u 

u 

B 

f 

F 

Upper  Rail 

3 

9 

( 

G 

4 

w 

W 

; 

5 

l> 

II 

Shill 

0 

- 

lower  Kail 

7 

8 

• 

M 

8 

a 

A 

.  (period) 

9 

• 

( 

X 

1 

:  (colon) 

:  (semicolon) 

l(  )l 

Mil 

V 

II 

II 

()uad  (  nlr 
IJnsliill 

1  Jelele 

/ 

@ 


A 

B 

C 

[) 

I 

r 

o 

M 

i 

i 

K 

I 

M 

N 

(> 

u 

Q 

K 

s 

I 

II 

V 

w 

X 

V 
/ 

I 

\ 

I 


/ 


103 


Hin.tr> 

Her 

( )<  lal 

Ilex. 

IIKOK 

ASt  II 

0101 1110 

004 

lib 

51 

; 

(HOI  III) 

tws 

117 

5F 

01100000 

two 

140 

60 

01100001 

097 

141 

61 

/ 

a 

01100010 

098 

142 

62 

b 

01100011 

099 

143 

61 

c 

01100100 

100 

144 

64 

d 

01100101 

101 

145 

65 

e 

01 1001 10 

102 

146 

66 

< 

01100111 

103 

147 

67 

g 

01101000 

104 

150 

68 

h 

01101001 

105 

151 

69 

i 

01 101010 

100 

152 

6A 

: 

i 

01 10 10 II 

107 

151 

(>B 

, 

k 

01 101 100 

108 

154 

bC 

% 

i 

01101101 

109 

155 

6D 

m 

01101110 

110 

156 

6E 

> 

n 

01101111 

111 

157 

6F 

o 

t'1110000 

112 

160 

70 

p 

01 110001 

111 

161 

71 

q 

01 1 10010 

114 

162 

72 

r 

01110011 

115 

1b3 

73 

s 

01 110100 

11b 

164 

74 

t 

01110101 

117 

165 

75 

u 

01110110 

118 

166 

76 

V 

01110111 

119 

167 

77 

w 

01111000 

120 

170 

78 

X 

01111001 

121 

171 

79 

V 

01 11 1010 

122 

172 

7A 

z 

01 11 1011 

121 

171 

7B 

# 

{ 

01111100 

124 

174 

7C 

@ 

1 

01111101 

125 

175 

7D 

' 

} 

01111110 

12b 

176 

7E 

= 

* 

01111111 

127 

177 

7F 

•• 

DEL 

10000000 

128 

200 

80 

10000001 

129 

201 

81 

a 

10000010 

130 

202 

82 
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PRESENT  WEATHER  SYMBOLS 

Symbolic  Numbers 

NWS-AG-A-090 

November  1979 


This  program  was  developed  by  the 
TRAINING  ANALYSIS  AND  EVALUATION  GROUP 
Orlando,  Florida 
and the 

NAVAL  OCEANOGRAPHIC  OFFICE 
Bay  St.  Louis,  Mississippi 


TYPOGRAPHY  by  F  Laurence  Keeler.  Ph  I) 
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INTRODUCTION 


To  plot  weather  you  must  know  which 
symbol  to  write  for  each  symbolic 
number  in  the  present  weather 
position  in  various  weather 
messages.  This  is  one  of  several 
essential  skills  required  in 
plotting  weather  information  on 
surface  charts. 

The  module  has  four  parts. 

In  part  1  you  will  learn  the  general 
types  of  present  and  past  weather 
noted  in  each  of  the  ten  groups  on 
the  Present  Weather  Chart  . 


Go  to  3 
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INTRODUCTION 


Learning 

Objective 


In  part  2  Past  Weather  symbol/number 
pairs  are  presented. 

In  part  3  you  will  learn  the  symbol/ 
number  pairs  in  the  first  5  groups 
on  the  Present  Weather  Chart. 

Then  in  part  4  you  will  learn  the 
symbol/number  pairs  in  the  last  5  groups. 

Completion  of  this  module  will 
enable  you  to  write  the  correct 
graphic  symbol  for  each  symbolic 
number  representing  the  present  and 


no 
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INTRODUCTION 


past  weather  in  meterological 
reports.  Given  any  of  the  100 
present  weather  numbers,  you  will  be 
able  to  write  the  correct  meaning  or 
graphic  symbol  without  error  or 
hesitation,  and  without  referring  to 
a  Present  Weather  or  Past  Weather 
Chart. 

This  lesson  will  help  you  learn 
easily  and  quickly. 

For  best  results,  fed  low  the  directions. 


Ill 
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LEARNING  OBJECTIVE  FOR  RART  1: 


to  recall  which  types  of  weather  are 
generally  noted  in  each  of  the 
numbered  groups  will  make  it  easier 
for  you  to  learn  the  symbolic 
numbers  for  each  of  the  different 
graphic  present  weather  symbols,  and 
their  past  weather  counterparts. 
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MEMORY  AIDS 


Practice  reading  the  following  verse 
until  you  can  recall,  the  peg  words  that 
rhyme  with  each  of  the  numbers. 

Zero  is  for  Hero 
One  is  for  Gun 
Two  is  for  Shoe 
Three  is  for  Tree 
Four  is  for  Door 
Five  is  for  Hive 
Six  is  for  Stick 
Seven  is  for  Heaven 
Eight  is  for  Gate 
Nine  is  for  Wine 
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MEMORY  AIDS 


Knowing  the  peg  words  (and  sentences 
to  be  presented  later  which  use 
these  peg  words)  will  help  you  start 
a  chain  of  associations  which  will 


make  it  easy  for  you  to  recall  the 
meanings  of  symbolic  numbers. 


TAEG  Report  No.  8ft 


Example  of  how  peg  words  will  help 
you  remember  numbers: 

Given  a  report  with  the  present 
weather  number  "37”,  note  that  the 
first  digit  is  "3”,  which  rhymes 
with  the  peg  word  "Tree”.  Then 
visualize  "wind  blowing  through  the 
branches  of  a  tree.”  This  reminds 
you  that  all  present  weather  numbers 
with  "3”  as  the  first  digit  concern 
"blowing/drifting”.  (Later  you  will 
learn  the  complete  definition  of  all 
present  weather  symbols  with  their 
respective  numbers.) 
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OPTIONAL  CRITERION  TEST 


Do  you  already 
know  these 
groups? 

Test  Yourself 

11118  criterion  test  is  designed  to 
test  your  knowledge  of  the  present 
weather  groups.  If  you  already  know 
the  groups,  this  test  will  reinforce 
your  knowledge.  If  you  don’t  know 
the  groups,  it  will  help  identify 
those  areas  to  study. 

Directions  1.  Recall  the  definition  of  each 

group  on  the  next  frame. 

2.  Write  each  group  number  and 
definition  on  a  piece  of  paper. 


TAEG  Report  No.  88 


OPTIONAL  CRITERION  TEST 


Group  9 

Group  0 

Group  8 

Group  5 

Group  2 

Group  4 
Group  1 

Group  3 

Group  6 

Group  7 
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OPTIONAL  CRITERION  TEST 


Directions  1 .  Check  your  answers  now. 

2.  Put  an  X  through  your  wrong 
answers. 


Groups 

Answers 

Group  9 

Thunderstorm 

Group  0 

Reduced  visibility 

Group  8 

Showers 

Group  5 

Drizzle 

Group  2 

Weather  ended 

Group  4 

Fog 

Group  1 

Distant  weather 

Group  3 

Blowing/drifting 

Group  6 

Rain 

Group  7 

Snow 
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OPTIONAL  CRITERION  TEST 


Did  you  pass?  1.  Did  you  miss  2  or  less  of  the 

group  definitions?  If  so,  then 
learn  the  ones  that  you  missed  by 
studying  them  on  12 

then  go  to  29 

2.  If  you  missed  more  than  2  of  the 
group  definitions,  complete  this 
learning  program. 
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ORGANIZATION  OF  THE  LEARNING  PROGRAM 


Note  Page  numbers  are  located  at  the  top 

left  or  right  corner  of  each  page. 

Directions  on  how  to  proceed  through 
the  program  are  located  at  the 
bottom,  right  corner. 
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GROUPS  TO  BE  LEARNED 


The  groups  are: 

Group  0  Group  1  Group  2 

Group  3  Group  4  Group  5 

Group  6  Group  7  Group  8 

Group  9 

You  will  learn  to  recognize  and 
define  these  groups  in  the  next 
few  pages. 


i 


i 
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LEARN  GROUP  NUMBERS  AND  DEFINITIONS 


Directions  1 .  Look  carefully  on  the  next  page 

at  the  definition  and  memory  aid  for 
each  group. 

2.  Say  the  memory  aid  and  definition 

to  yourself  as  you  look  at 
the  group. 

3.  Understand  how  the  memory  aid 

helps  you  remember  the  group. 

4.  Cover  the  definitions,  then  look 

at  each  group  number  and  recall  the 

definitions. 

5.  Repeat  this  4  or  5  times  for 

each  of  the  groups. 
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LEARN  GROUP  NUMBERS  AND  DEFINITIONS 


Definition 

Group 

Memory  Aid 

Reduced  visibility 

Group  0 

Hero  -  Almost 
blinded  by 
smoke(REDUCED 
VISIBILITY),  he 
saved  the  child 
from  the  burning 
house. 

Distant  weather 

Group  1 

Gun  - 1  have  gun, 
keep  your  DISTANCE. 

Weather  ended 

Group  2 

Shoe  -  A  kick  in  the 
pants  ENDED  the 
argument. 
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LEARN  GROUP  NUMBER  AND  DEFINITION 


Definition 

Group 

Memory  Aid 

Blowing/drifting 

Group  3 

Tree  -  wind  BLOWING 
through  the 
branches  of  a  TREE. 

Fog 

Group  4 

Door  -  It’s  hard  to 
find  your  DOOR  in 
the  FOG. 

Drizzle 

Group  5 

Hive -DRIPS  of 
honey  from  a  hive 
look  like  the 
symbol  for  drizzle. 

Rain 

Group  6 

Stick  -  a  stick 
floats  in  a  RAIN 
puddle. 

Goto  19 


125 


TAEG  Report  No.  88 


LEARN  GROUP  NUMBER  AND  DEFINITION 


Definition 

Group 

Memory  Aid 

Snow 

Group  7 

Heaven  -  Snow  FLAKES 
float  down  from 
heaven. 

Showers 

Group  8 

Gate -rain  SHOWERS, 
open  flood  gate. 

Thunderstorm 

Group  9 

Wine  -  The  drunk  hid 
in  the  wine  cellar 
durng  the 

THUNDERSTORM. 
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PRACTICE  DEFINING  THE  GROUPS 


Directions  1.  Read  all  directions  before 

you  practice. 

2.  Try  to  recall  the  definition 

of  each  group  in  the  exercise 
on  page  21  . 

3.  Write  your  first  impression  of 

the  group’s  definition. 

4.  If  the  definition  is  difficult 

to  remember,  recall  the  memory  aid 
first,  then  recall  the  definition. 

5.  Check  your  answer  immediately 

in  the  answer  section  below  the 
practice  exercise. 
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PRACTICE  DEFINING  THE  GROUPS 


Practice 

Exercise 

Group  9 
Group  5 
Group  3 
Group  5 
Group  4 

Group  4 
Group  3 
Group  4 
Group  9 
Group  8 

Group 

Definition 

Group  4 

Fog 

Group  9 

Thunderstorm 

Group  8 

Showers 

Group  5 

Drizzle 

Group  3 

Blowing/drifting 

Group  8 
Group  8 
Group  9 
Group  3 
Group  5 
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PRACTACE  DEFINING  THE  GROUPS 


Practice 

Group  2 

Group  6 

Group  0 

Exercise 

Group  1 

Group  7 

Group  1 

Group  0 

Group  2 

G, t  m  p  6 

Group  7 

Group  7 

Group  0 

Group  2 

Group  1 

Group  6 

Group 

Definition 

Group  2 

Weather  ended 

Group  0 

Reduced  visibility 

Group  1 

Distant  weather 

Group  6 

Rain 

Group  7 

Snow 
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PRACTICE  DEFINING  THE  GROUPS 


Directions  1 .  Keep  practicing  until  you  can 

define  all  the  groups  without 
pausing. 

2.  Practice  defining  the  most 

difficult  groups  for  you  more 
than  the  easier  groups. 

3.  Vary  the  way  you  go  through  the 

practice  groups. 

(Left  to  right,  then  right  to  left.) 

4.  Keep  practicing  until  you  recall 

the  answers  without  hesitating. 

To  practice  . Go  back  to  21 

After  practicing  . Go  to  24 
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TEST  YOURSELF 


Directions 


Self  Test 


1 .  Copy  the  group  number  and  then 

write  the  definition  for  each. 

2.  If  you  want  a  memory  aid  . 

go  to  25 

3.  Refer  to  the  memory  aids  only  when 

you  can’t  think  of  the  definition. 


Group  3 

Group  0 

Group  2 

Group  5 

Group  1 

Group  6 

Group  8 

Group  7 

Group  4 

Group  9 
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TEST  YOURSELF 


Groups 
Group  3 

Group  2 

Group  1 

Group  8 

Group  4 

Group  0 


Memory  Aids 

Tree  -  wind  BLOWING  through  the 
branches  of  a  TREE. 

Shoe  -  A  kick  in  the  pants  ENDED  the 
argument. 

Gun  - 1  have  gun,  keep  your 
DISTANCE. 

Gate  -  rain  SHOWERS,  open  flood 
gate. 

Door  -  It’s  hard  to  find  your  DOOR 
in  the  FOG. 

Hero  -  Almost  blinded  by  smoke 

(REDUCED  VISIBILITY),  he  saved 
the  child  from  the  burning  house. 
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TEST  YOURSELF 


Groups  Memory  Aids 

Group  5  Hive  *  DRIPS  of  honey  from  a  hive 

look  like  the  symbol  for  drizzle. 

Group  6  Stick  -  a  stick  floats  in  a  RAIN 

puddle. 

Group  7  Heaven  -  Snow  FLAKES  float  dow  from 

heaven. 

Group  9  Wine  -  The  drunk  hid  in  the  wine 

cellar  during  the  THUNDERSTORM. 


Go  back  to  24 


133 


TAEG  Report  No.  88 


27 


TEST  YOURSELF 


Group 

Answers 

Group  3 

Blowing/drifting 

Group  2 

Weather  ended 

Group  1 

Distant  weather 

Group  8 

Showers 

Group  4 

Fog 

Group  0 

Reduced  visibility 

Group  5 

Drizzle 

Group  6 

Rain 

Group  7 

Snow 

Group  9 

Thunderstorm 

Goto  28 


134 


TAEG  Report  No.  88 


28 


TEST  YOURSELF 


End  of  Test  1 .  If  you  missed  any  definitions. 

Directions  you  need  more  practice 

-  skip  groups  you  already  know 

-  spend  extra  time  on  those  groups 
you  find  difficult  to  remember. 

-  do  the  self  test  after  you 
practice  each  time 

To  practice . 

go  back  to  21 


2.  If  you  correctly  defined  all  the 

groups  ....  CONGRATULATIONS! 

For  next  part  of  module  . go  to  29 
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INTRODUCTION 


In  part  2  of  this  module  you  will 
learn  to  recall  the  symbol /number 
pairs  for  Past  Weather.  There  are  7 
past  weather  symbols.  They 
represent  blowing/drifting 
phenomena,  fog,  drizzle,  rain, 
snow,  showers  and  thunderstorms. 

Learning 
Objective 
Part  2 

After  you  have  finished  with  this 
part  of  the  module  you  will  be  able 
to  write  the  correct  symbol  for  any 
Past  Weather  number. 
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OPTIONAL  CRITERION  TEST 


Do  you  already 
know  these 
symbols? 

Test  Yourself 

1.  Recall  the  graphic  symbols  for 

each  number  on  the  next  frames. 

2.  Write  each  number  and  its 

graphic  symbol  on  a  piece 
of  paper. 
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OPTIONAL  CRITERION  TEST 


Directions 


1.  Check  your  answers  now. 


2.  Put  an  X  through  your  wrong 
answers. 

Numbers  Answers 

3  %  /-+• 

6 

9  ft 

5  « 

7 
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OPTIONAL  CRITERION  TEST 


Did  you  pass?  1 .  Did  you  miss  1  of  these  symbols? 

If  so,  then  learn  the  one  that 
you  missed  by  studying  it  on  0032. 


2.  If  you  missed  more  than  1  of  the 

symbols,  complete  this  learning 
program. 
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34 


ORGANIZATION  OF  THE  LEARNING  PROGRAM 


Overview  The  symbols  will  be  presented 

in  one  practice  group.  You  will 
learn  the  symbols  in  this  group 
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SYMBOL  SET  1 


The  numbers  in  this  set  are: 

3  4  5  6  7  8  9 

You  will  learn  to  recognize  and 
coordinate  these  numbers 
with  their  respective  symbols 
in  the  next  few  pages. 
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SYMBOL  SET  1: 


LEARN  THE  SYMBOLS 


Directions  1.  Look  carefully  on  the  next  page  at 

each  graphic  symbol  and  memory  aid 
for  each  number. 

2.  Recall  the  memory  aid  and 

graphic  symbol  as  you  look  at 
the  number. 

3.  Understand  how  the  memory  aid 

helps  you  coordinate  the  symbol 
with  a  number. 

4.  Cover  the  symbols,  then  look  at 

each  number  and  recall  the 
graphic  symbol. 

5.  Repeat  this  4  or  5  times  for 

each  of  the  numbers. 
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SYMBOL  SET  1:  LEARN  THE  SYMBOLS 


Graphic  Symbol 

Number 

Memory  Aid 

$/  + 

3 

Blowing/drifting 

= 

4 

Fog 

♦ 

5 

Drizzle 

• 

6 

Rain 

• 

7 

Snow 

V 

8 

Showers 

n 

9 

Thunderstorms 
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SYMBOL  SET  1:  PRACTICE 


Directions  1.  Read  all  directions  before 

you  practice. 

2.  Try  to  recall  the  graphic  symbol 

for  each  number  in  the  exercise 
on  page  39 . 

3.  Write  your  first  impression  of 

the  graphic  symbol. 

4.  If  the  graphic  symbol  is  difficult 

to  remember,  recall  the  memory  aid 
first,  then  recall  the  graphic 
symbol. 

5.  Check  your  answer  immediately 

in  the  answer  section  below  the 
practice  numbers. 
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SYMBOL  SET  1:  PRACTICE 


Practice 

Numbers 


Number 

3 

5 

6 

7 

4 

8 
9 


476358967 

594378965 

753483579 

864983765 

549859736 


Graphic  Symbol 

$/  + 


V 

ft 
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SYMBOL  SET  1:  PRACTICE 


Directions  1 .  Keep  practicing  until  you  can 

recall  the  symbols  for  each 
number  without  pausing. 

2.  Practice  the  most  difficult 

numbers  more  than  the 
easier  ones. 

3.  Vary  the  way  you  go  through  the 

practice  numbers. 

(Left  to  right,  then  right  to  left.) 

4.  Keep  practicing  until  you  recall 

the  answers  without  hesitating. 

To  practice  . Go  back  to  39 

After  practicing  . Go  to  4 1 
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SYMBOL  SET  1:  TEST  YOURSELF 


Directions  1 .  Write  the  graphic  symbol  for  each 

number  in  the  self  test. 

Use  scratch  paper. 

2.  If  you  want  a  memory  aid  . 

go  to  42 

3.  Refer  to  the  memory  aids  only  when 

you  can’t  think  of  the  symbol. 


Self  Test 


4 

5 
8 
9 


3 

6 

7 
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SYMBOL  SET  1:  TEST  YOURSELF 


Numbers 

4 

5 
8 
9 
3 

6 


Memory  Aids 

Fog 

Drizzle 

Showers 

Thunderstorms 

Blowing/ drifting 

Rain 

Snow 
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SYMBOL  SET  1:  TEST  YOURSELF 


Numbers 

4 

5 
8 
9 
3 

6 
7 


Answers 


V 

ft 

$/  + 


150 


TAEG  Report  No.  88 


SYMBOL  SET  1: 


End  of  Test 
Directions 


TEST  YOURSELF 


1.  If  you  missed  any  answers, 
you  need  more  practice. 

•Skip  symbols  you  already  know 
•Spend  extra  time  on  those 
symbols/numbers  you  find 
difficult  to  remember. 

•do  the  self  test  after  you 
practice  each  time 

To  practice  . Go  Back  to  39 


2.  If  you  correctly  coordinated 

all  the  symbols  with  numbers 


congratulations! 


TAEG  Report  No.  88 
DISTRIBUTION  LIST 

Air  Force 

Headquarters,  U.S.  Air  Force  (Mr.  Stiegman) 

Headquarters,  Air  Training  Command  (XPTD)  (Dr.  Schufletowski ) 
Headquarters,  Air  Training  Command  (XPTIA,  Mr.  Goldman) 

Air  Force  Human  Resources  Laboratory,  Brooks  Air  Force  Base 
Air  Force  Human  Resources  Laboratory  (Library),  Lowry  Air  Force  Base 
Air  Force  Office  of  Scientific  Research/AR  (Dr.  A.  R.  Fregly) 
Headquarters  Tactical  Air  Command  (DOOS)  Langley  Air  Force  Base 
AFMTC/XR  (Capt.  Englebretson)  Lackland  Air  Force  Base 
Headquarters  34  TATG/TTD  (Lt.  Col.  Lee),  Little  Rock  Air  Force  Base 
Headquarters  MAC/DOTF  (Capt.  Orler),  Scott  Air  Force  Base 
Air  Force  Human  Resources  Laboratory  (Mr.  Johnson),  Wright-Patterson  Air 
Force  Base 

HQ  AFLC/LOLMP,  Wright-Patterson  Air  Force  Base 


Army 

Commandant,  TRADOC  (Technical  Library) 

ARI  (Dr.  Ralph  R.  Canter,  316C;  Dr.  Edgar  Johnson;  Mr.  James  Baker; 

Dr.  H.  F.  O'Neil,  Jr.;  Dr.  Beatrice  Farr,  PERI-OK) 

ARI  Field  Unit  -  Fort  Leavenworth 
ARI  (Reference  Service) 

ARI  Field  Unit  -  Fort  Knox  (PERI-IK) 

COM  USA  Armament  Materiel  Readiness  Command  (DP.SAR-MAS) 

COM  USA  DARCOM  Materiel  Readiness  Support  Activity  (DRXMD-MP) 
ATSC-DS-SPAS  (Mr.  Klesch) 


Coast  Guard 

Commandant,  U.S.  Coast  Guard  Headquarters  (G-P-l/62;  G-RT/81 ) 


Marine  Corps 

CMC  (OT,  LMD-1  (Mr.  Maraqides)) 

CGMCDEC  (Mr.  Greenup) 

Director,  Marine  Corps  Institute 
CO  MARCORCOMMELECSCOL  (ITS)  (Mr.  D.  E.  Mueller) 


Navy 

OASN  (R&D,  MRA&L,  Dr.  Sicilia) 

CNO  (OP-115,  M.  Malehorn;  0P-987H,  Dr.  R.  Smith;  OP-987,  Mr.  H.  Stone; 

OP-401 E,  CDR  Linehan) 

NAVCOMPT  (NCD-7) 

ONR  (45C  (2  copies),  455) 


TAEG  Report  No.  88 


DISTRIBUTION  LIST  (continued) 


CNM  (MAT-08T2,  Mr.  A.  L.  Rubinstein;  MAT-04213,  Mr.  Weyburn) 

CNET  (01,  00A,  N-5  (6  copies)) 

CNAVRES  (02) 

COMNAVSEASYSCOM  (05L1C,  05L1C2,  05L3  (Mr.  Shihda)) 

COMNAVAIRSYSCOM  (03,  340F,  413G,  340C  (Mr,  Hurst)) 

CO  NAVMEDRSCHDEVCOM  (CAPT  H.  J.  Connery) 

CNTECHTRA  (017,  Dr.  Kerr  (5  copies)) 

CNATRA  (Library) 

COMTRALANT 

COMTRALANT  (Educational  Advisor) 

COMNAVELEXSYSCOM  (Code  4505,  Mr.  Sibole) 

NPPSMO  (Code  NPPO,  Mr.  Cherny;  Code  10,  Mr.  Burby) 

NAVSHI PWPNSYSENGSTA  (Code  5700,  Mr.  Radcliff) 

COMOPTEVFOR  (Code  32,  CDR  Brown) 

COMTRAPAC  (2  copies) 

CO  NAVPERSRANDCEN  (Library  (4  copies).  Code  260  (Dr.  Blanchard)) 

NAVPERSRANDCEN  Liaison  (01H) 

Superintendent  NAVPGSCOL  (2124) 

Superintendent  Naval  Academy  Annapolis  (Chairman,  Behavioral  Science  Dept.;  Library) 
CO  NAVEDTRAPRODEVCEN  (AH3;  EAT,  Dr.  Smith;  Technical  Library  (2  copies)) 

CO  NAVEDTRASUPPCEN  NORVA  (00(2  copies);  Nllll,  Joe  Fazio) 

CO  NAVEDTRASUPPCENPAC  (5  copies) 

CO  NAVAEROMEDRSCHLAB  (Chief  Aviation  Psych.  Div.) 

CO  FLTCOMDIRSYSTRACENPAC 
CO  NAMTRAGRU 

CISO,  NTTC  Corry  Station 

CO  NAVTRAEQUIPCEN  (N-424  (2  copies),  N-211,  N-001 ,  N-002) 

Center  for  Naval  Analyses  (2  copies) 

U.S.  Naval  Institute  (CDR  Bowler) 

OIC  NODAC  (2) 

CO  TRITRAFAC  (2  copies) 

CO  NAVSUBTRACENPAC  (2  copies) 

CO  FLEASWTRACENPAC 
CO  FLETRACEN  SDIEGO 
CISO,  SSC 

Executive  Director  NAVINSTPRODEVDET 

CO  NAVTECHTRACEN  Corry  Station  (Cryptologic  Training  Department) 

Supply  Schools  Training  Officer  (Code  730),  Meridian 

Office  of  Civilian  Personnel,  Southern  Field  Division  (Jim  Herndon) 

VT-10  (Education  Specialist) 

CO  NAVSUBSCOL  NLON  (Code  0110) 

CO  NAVTECHTRACEN  Treasure  Island  (Technical  Library) 

NAVAIRTECHSERVFAC  (Code  04A4,  Mr.  Richardson;  Code  00,  CDR  Kogler; 

Code  02,  Mr.  Muller) 

President,  Naval  War  College  (Library) 


Page  2  of  3 


TAEG  Report  No.  88 


DISTRIBUTION  LIST  (continued) 

Other 

Military  Assistant  for  Human  Resources,  OUSDR&E,  Room  3D129,  Pentagon 
(CDR  Paul  Chatelier) 

OASD  (MRA&L)  (LT  COL  Grossel ) 

Program  Manager,  Office  of  Cybernetics  Technology,  Defense  Advanced  Research 
Projects  Agency  (Dr.  J.  Dexter  Fletcher) 

Institute  for  Defense  Analyses  (Dr.  Jesse  Orlansky) 

COM  National  Cryptologic  School  (Code  E-2) 

Hughes  Aircraft  Company  (Mr.  Bean) 

Systems  Exploration,  Inc.  (Mr.  Booher) 

Bio  Technology,  Inc.  (Mr.  Post) 

EG&G  Hydrospace-Challenger  (Mr.  Grubb) 

Telcom  Systems,  Inc.  (Mr.  Geyer) 


Information  Exchanges 


DDC  (12  copies) 

DLSIE  (Mr.  James  Dowling) 

Executive  Editor,  Psychological  Abstracts,  American  Psychological  Association 
ERIC  Processing  and  Reference  Facility,  Bethesda,  MD  (2  copies) 


